


La revue francophone indépendante pour les utilisateurs des 
Apple ][+, //e, //e+, //C" et Macintosh" 





@ Comparateur de disquettes 16 secteurs 
@ Un nouvel accessoire pour Macintosh 
@ Le formateur ProDOS désassemblé 
@ Les ascenseurs en MSBasic 

@ Courbes fractales en Pascal 

ë Editeur de blocs ProDOS 

@ Effets de miroir en HGR 


@ Hyper-espace et Basic 
@ Le Disk ][ sur le //c 

@ Un micro-finder 

& Temps anglais 

Tri de chaines 












NUMERO 25 





- PRIX 40F 


Le chemin des écoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer d'applicaton, il suffit 
aujourd’hui d'appeler l'accessoire “Raccourci”. Après avoir 
confirmé votre intention de quitter le programme en cours, 
une fenêtre de sélection apparaît et un simple double-clic 
vous fait passer de Basic à ScreenMaker, de MacPaint à 
Multiplan et, pourquoi pas, de MacFotth à MacPoker… 


Des avantages : 


Sur un 128 Ko, ne pas passer par le Finder c’est 
éviter des manipulations gourmandes en temps et 
en patience. 

Sur un 512 Ko, les applicasons disposent de toute la 
place mémoire, 

Sur un Mac Plus, tes changements sont quasi- 
instantanés et les 768 Ko de mémoire cache sont 
disponibles. 

Compatible avec Switcher : vous pounez 
changer l’une ou l’autre des applications gérées par 
Switcher directement par cet accessoire. 

Compatible disques durs : même si votre dis- 
que dur est partagé via AppleTalk.. 

Disponible à tout moment, “Raccourci” est toujours 
utilisable car il ne nécessite pas une installation 
préalable des applications (sait-on toujours à 
l'avance quelles applications seront nécessaires à 
un travail donné ?). 


Avec Pom's, travaillez directement ! 
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Diversité 


Voici donc ci-contre les résultats 
chiffrés de notre récent sondage. Les 
730 lecteurs qui nous ont répondu ne 
permettent pas de tirer une valeur 
représentative (au sens statistique) de 
ces chiffres ; nous en tirons bien en- 
tendu une tendance, confortée par le 
fait que les résultats sont similaires à 
ceux de l’an passé. 


Toujours aussi peu de femmes -— 
1,9 % des bulletins — lisent Pom's. 
Cela correspondrait-il à la proportion 
de femmes qui s’intéressent à l’in- 
formatique ? Notons toutefois que 
nos ‘auteuses’ se font aussi prolifi- 
ques et assidues que nos auteurs. 
Parmi nos lecteurs, 14 % ont un 
Macintosh, 91,8 % ont un Apple J|, 
6,03 % ayant les deux appareils. La 
répartition à l’intérieur de la famille 
Apple ][ totalise plus de 100 %, cer- 
tains ayant deux appareils de ce type, 
un lecteur sur deux ÿ consacrant 
entre 3 et 8 heures chaque semaine. 
Dans les grandes tendances, 1l faut 
aussi remarquer que 58 % des pos- 
sesseurs d'Apple // ont une carte 80 
colonnes étendue et 45 % utilisent 
régulièrement ProDOS, ce demier 
point s’accompagnant de la diminu- 
tion des ][+ au profit des //e. 

Un lecteur sur trois possède une 
souris Apple //, ce qui nous ouvre de 
nouveaux horizons pour la variété 
des programmes que nous vous 
proposerons. 

Moins de débutants, plus de lecteurs 
de niveau intermédiaire et 
d'amateurs avertis : y sommes-nous 
pour quelque chose ? 


Au-delà de la simple mise à plat des 
chiffres, ce type d'enquête nous 
permet, par vos remarques (non 
quantifiables) de mieux orienter la 
revue, Bien sûr, la diversité des 
réponses nous laisse parfois dans une 
indécision proche de la perplexité 
mais nous savons rester à l’écoute : 
un lecteur nous a suggéré de mettre 
les sources assembleur en format 
TEXT sur la disquette pour que 
chacun puisse le charger : chose faite 
dès le numéro 24. 














: -dels:.25 Basic : 98, “DOS : 66, 0 | ImagelUriter : 54,2 
i 15-19: 5,2 Pascal: 32,6 : ProD0S : 45,4 :  ImegelUriter// 510,4% 
: 20-24:11,5: Forth: 2,2; CP/M: 9,5 : Apple DMP: 4,6 ; 
| 25-34:29,6 Logo:13,2 : : : Epson : 11,5 : 
| 55-dSif6e) non2r eee | Seïkoshe: 3,3 : 
NE: de 45 : 15, Û E 68000: 4,4 : 3 ‘je. ?  Mennesm@en: 3,0 : 
i.. nn) Lisp: 0,3 : c. 280-CP/M : 25,1 L Oki: 1,4! 
? masculin : 98, 0; opt: 1 ji. certe souris : 34,6 ; are $ 1US | 
féminin: 20 & PA OUR ES dE 
Lu mm HLOniNOns AA en 0) : è 
| U+:1%9:  PLE: 00. débutant: 5,2. DR Mn re E4 
//e : 40,6 APL: 0,3 ! intermédiaire : 40,0 | ARR Fu 
//e+:17,3 i Prolog: 0,8 ‘amateur aL'erti : 46,0 : er” 
//c:32,2 | C: 0,0  hautnireau: 8,8 | boutique ss 
Î , A L il 13 
D 2 CL es es PM es es 
| Mac 128 : 13,6 i- de 2H: 2,4 niveau général : 4, 35 intérêt pédag : 3,50 
| Mac512 : 56,9 | 3-8H:51,0 s présentation : 3,97 micro-infos : 3,/6 
MacPlus : 27,5 :9 -16H:32,1 : Intérêt prog. : 3,79 disquettes : 4,12 


LISA: 2,0 +de 16 H: 


14,5 ; clorté articles : 3,43 


(Notes entre 0 et 5) 


*Disques durs : 9,8 % pour l'ensemble des machines (Mac & Apple //} 


Il est vrai que vos compliments nous 
font rougir (Continuez, meilleure 
revue, etc.) mais il est également vrai 
que vos reproches sont indispen- 
sables (Pas assez d'explications, 
soyez plus clairs, il m’a fallu trois 
Jours pour comprendre tel article.) ; 
nous orientons la barre dans le sens 
d’une plus grande limpidité par nos 
‘encadrés-mode d'emploi - que 
vous saluez unanimement — et une 
présentation plus simple. 

Sans aucune valeur représentative, 
mais juste pour le plaisir, voici 
quelques unes des remarques — ar- 
bitrairement choisies — que vous 
nous avez adressées : 


Ce que vous préférez : 

«Rêver que j’ai tout compris, 

Les applications type ‘composeur’ 
(cité au moins une fois sur cinq), 

Les utilitaires EPE, MAX, 

Les applications pratiques (Mul- 
tiplan), 

Les “ponts” entre DOS et ProDOS, 
L’éditorial (!}, 

Le cahier Mac, 

L'absence de publicité, 

Les utilitaires à placer dans la 
pomme du Mac, 

Ce qui pallie l'insuffisance des 
documentations Apple, 

Les articles pédagogiques de CG. 
Michel, 

La couverture et le prix, 

Le sérieux des programmes.» 


Ce que vous détestez : 

«Les autres (!}, 

Tous vos assembleurs car j’ai ‘The 
Assembler’, 

La rédaction  érudite 
difficilement déchiffrables, 
Le prix, 

Les anglicismes et le jargon infor- 
matique, 

Attendre deux mois entre parutions, 
Pas assez de publicité, 

Ne rien avoir à critiquer, il n'y avait 
que la présentation mais vous l’avez 
changée, 

La publicité déguisée (NDLR : en 
quoi ?), 

Avoir quatre lignes d'explications 
pour quatre pages de source, 

Ce qui n’est pas programmation 
(Multiplan).» 


d’articles 


Ce qu’il faut développer : 
«intelligence artificielle, 

Les astuces, 

Un encadré explicatif pour chaque 
article, 

Applications type ‘fer à souder’, 
Applications sur Multiplan, Chart, 
Draw, 

Rien, 

Le courrier des lecteurs, 
Mettez des organigrammes, 
La robotique, 

Les logiciels d'application : 
bancaire, 

Trucs sur la communication.» 


compte 
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Éditorial 


Apple Expo à la Villette représente un pas de plus de la part d’Apple vers le professionnalisme : 
une ambiance beaucoup plus proche de celle du Sicob, et une domination franche et massive du 
Macintosh. Certes, on parvenait encore à voir des Apple IT mais on semblait être dans l’attente 
du fameux //x, surnommé par certains le Rambo car, tout en restant compatible avec le //e et le 
I[x, il devrait tourner trois fois plus vite. 


Par rapport au Sicob d'avril, nous avons vu relativement peu de produits nouveaux. A signaler 
toutefois pour l’Apple IT les excellentes possibilités graphiques du programme Extasie de 
Créalude - et dont les droits viennent d’être acquis par Apple -, un utilitaire prometteur pour 
les manipulations en ProDOS, MouseFiler, développé par Froggy Software et, pour les posses- 
seurs de Macintosh, la présentation chez ACI de WriterPlus, dont l’ambition est de remplacer 
d’un coup tous les MacWrite et autres Word, l'apparition chez Microsoft du Flight Simulator, 
la version Mac dépassant nettement la version traditionnelle de ce célèbre logiciel de simulation. 


Dans ce numéro, nous vous présentons deux nouvelles disquettes : l’une pour l’Apple // est un 
recueil de trois jeux de réflexion (intense..….), œuvre de Sylvie Gallet déjà auteur de programmes 
pour Pom’s. La deuxième, pour le Macintosh, est un accessoire de bureau qui accélère sen- 
Siblement les passages d’une application à l’autre : l’art et la manière de passer de MacPaint à 
MacWrite pour y coller un dessin SANS devoir passer par le bureau électronique, Signé J.-L. 
Bazanegue. 


Ce numéro, certainement influencé par vos nombreuses remarques à l’occasion de notre son- 
dage, est très ouvert. Des programmes tout Basic, d’un accès simple, des programmes en as- 
sembleur moins évidents à saisir mais d’une utilisation aussi aisée, un programme en Pascal 
inspiré par les espaces non entiers abordés dans le numéro 22, des ascenseurs Basic, un acces- 
soire de bureau et un micro-Finder pour le Macintosh, et pourquoi pas de l’informatique hard 
de type “fer à souder et pince coupante””… 


Avouons-le, certains abonnés ont reçu le précédent numéro de leur revue préférée après mise en 
kiosque, le routage ayant été trop tardif. Mea culpa, on ne nous y reprendra plus ! 


Hervé Thiriez 


Ont collaboré à ce numéro : Alexandre Avrane, Bernard Baz, Jean-Luc Bazanegue, Jean Damiènes, Bruno Fénart, 
Alain Guillard, Jean-Michel Gourévitch, Olivier Herz, Paule Jade, Roïtand Jost, 
Bernard Lambillon, Philippe Meslin, Marc Rogliano, J.-P. Sorribas, Olivier 
Sotiriades, Julien Thomas, Claude Vivier, Yves Wouters. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV — 12, rue d'Anjou — 78000 Versailles. Tél : (1) 39 51 24 43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P-P. 

Impression : Rosay — 47, avenue de Paris — 94300 Vincennes. Tél : (1) 43 28 18 63. 


Pom's est unc revue indépendante, non rattachée à Apple Computer, Inc. nt à Apple Computer France S.A.R.L. Apple, ie logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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Temps anglais 


de 


e programme que 
nous vous proposons 
ici, s'il ne présente pas 
de prouesse du point 
vue de la programmation, 


intéressera néanmoins un grand 
nombre de lecteurs. 


Il s'agit d'un jeu éducatif qui 
affiche un verbe anglais, et vous 
demande de lui communiquer le 
preterit, le participe passé et la 
traduction française. Le pro- 
gramme corrige automatiquement 
vos réponses incorrectes (ou 
inexistantes) et affiche votre score 
à la fm de chaque séquence (de 
trois à douze questions). 





Programme 


5 REM 


‘TPS PRIMITIFS 
ANGLAIS" 


CONTE AE 


7 REM WOUTERS Y.*#* 


8 REM --BELGIQUE--#* 
10 REM -—----- TEST ANGLAIS------- 
30 DIM VERBES (196,5) 


40 
50 
60 
70 


80 

90 

100 
110 
120 
210 
220 


230 
240 
250 
260 
270 


280 
290 


300 


DIM DEUJA (196) 
DIM OK(196) 
HOME : VIAB 10 

PRINT "PATIENCE: J'APPRENDS LES T 
EMPS PRIMITIFS." 
FOR J = 1 TO 191 

FOR K = 1 TO 5 STEP 1 

READ VERBES (J, K) 

NEXT K 

NEXT J 

HOME : VTAB 8 

PRINT "COMBIEN VOULEZ-VOUS FAIRE 

D'EXERCICES?" 
PRINT TMINIMUM =3 ET MAXIMUM-12" 


ñ 


INPUT EX 

IF EX < 3 OR EX > 12 GOTO 230 

B2 = 0:B3 = 0:B4 = 0 

FOR J = 1 TO 191:DEJA{J) 
XT J 

ROME 

PRINT "INFIN PRETERIT PARTICIPE 
-TRADUCTION" 
PRINT " (TO) 
FRANCAISE" 


= 0: NE 


PASSE 


310 


320 
330 





1 TO. EX 
191 THEN PRINT : 
"HRAVOIV@US AVEZ TOUT REUSSI 


PRINT 

ons 
PRINT "JE N'AI PLUS D'EXERCICES 
À VOUS PROPOSER.": PRINT : PRIN 
T "POU POURSUIVRE, PRESSEZ UNE TO 
UCHE"; GET X$:II = I:I = EX:EX = 
II - 1: GOTO 800 

J = INT { RND (1) * 191) +1 

IF DEJA{J) = 1 GOTO 340 

DEJA (J) = 1 

IF OK{J) = 3 GOTO 340 

TE =TE + 1 

PRINT VERSES (J,1); 


PV = PEEK (37) + 1 

VTAB 2: ATAB 38: INVERSE : PRINT 
TE; : NORMAL : VTAB PV 

OK(J) = 0 

RE ===> QUESTION SUR LE PRETE 
RIT. 


HTAB 8: INPUT "";R2S 
IF R2$ < > VERBES$ (J,2] GOTO 510 


REM ----BONNE REPONSE (PASSE SIMP 
LE) 

82 = B2 + 1 

TOMATE] 

OK{J} = OK(J) + 1 

GOTO 550 

REM ----ERREUR (PASSE SIMPLE) 
HTAB 8: YTAB PV 

CALL - 958 

INVERSE : PRINT VERBES (J,2);: NO 
RMAL 

REM ---QUESTION SUR LE PARTICIPE 
PASSE---- 


HTAB 17: VTAB PV: INPUT "";R3$S 
IF R3$ < > VERBES$(J,3) GOTO 630 
REM ---BONNE REPONSE (PARTICIPE P 
ASSE) -- 

B3 = B3 + 1 

TI = TEEN) 

OK(J) = OK(J) + 1 

GOTO 670 
EPASSE) === 

HTAB 17: VTAB PV 

CALL - 958 

INVERSE : PRINT VERBES$ (9,3);: NO 
RMAL 

REM ---QUESTION SUR LA TRADUCTIO 
N FRANCAISE--- 

HTAB 27: VTAB PV: INPUT "";R4$ 
IF R4$ < > VERBES (J,4) AND R4$ 
< > VERBE$(J,5) GOTO 760 


ERREUR (PARTICIP 





REVUE ES BONNE REPONSE (TRADU 
CTION) -—----—- 

B4 = B4 + 1 

T4 = T4 + 1 

OK(J) = OK{YJ) + 1 

IF OK(J) = 3 THEN TB = TB + 1 
G9TC 800 

REM ----ERREUR (TRADUCTION) -——-- 


Yves Wouters 


HTAB 27: VTAB PV 


CALL - 958 

INVERSE : PRINT VERBES (J, 4) : NOR 
MAL 

NEXT I 

PRINT "PRINT =: PRINT PICI 2 


HTAB 8: PRINT B2;"/";EX; 

HTAB 17: PRINT B3;"/";£X; 

HTAB 27: PRINT B4; "/";EXx 

PRINT "TOTAL: "; 

HTAB 8: PRINT T2; "/";TE; 

HTAB 17: PRINT T3;"/";TE; 

HTAB 27: PRINT T4; "/"3TE 

PRINT : PRINT "POUR VOIR L'ENSEM 
BLE DE VOS SUCCES, TAPEZ S ." 
PRINT "SINON, TAPEZ UN CARACTERE 
QUELCONQUE. " 

GET X$: HOME 

IF X$ > < "S" GOTO 970 

FOR J = 1 TO 191 

PRINT OK(JJ:" "VERBES(J,1), 
NEXT J 

GOTO 890 

UTAB 23: PRINT "VOULEZ-VOUS 
1.UNE NOUVELLE SERIE 


PRINT " 2.ARRETER 
Le 
GET DECISS 
IF DECISS = "l" GOTO 210 
IF DECISS = "2" THEN HOME ; GOT 
0 1030 
HOME : PRINT "REPONDEZ PAR 1 OU 
PAS AV: PAT: GOTG. 970 
HOME 
END 
DATA ABIDE, ABODE, ABODE, DEMEURER 
DEMEURER 
DATA ARISE,AROSE, ARISEN, SE LEVE 
R,SE LEVER 
DATA  AWAKE,AWOKE, AWAKEN, S'EVEIL 
LER, S'EVEILLER 
DATA BE,WAS, BEEN, ETRE, EXISTER 
DATA BEAR, BORE, BORNE, POREER, POR 
TER 
DATA BEAT, BEAT, BEATEN, BATTRE, BA 
2TRE 
DATA BECOME, BECAME, BECOME, DEVEN 
IR, DEVENIR 


DATA BEFALL, BEFELL, BEFALLEN, ARR 
IVER A, ARRIVER À 

DATA BEGET, BEGOT, BEGOTTEN, ENGEN 
DRER, ENGENDRER 

DATA BEGIN, BEGAN, BEGUN, COMMENC 
ER, COMMENCER 

DATA  BEHOLD, BEHELD, BEHELD, CONTE 
MPLER, CONTEMPLER 

DATA  BEND, BENT, BENT, COURBER, COU 
RBER 

DATA BEREAVE, BEREFT, BEREFT, PRIV 
ER, PRIVER 

DATA BESEECH, BESOUGAT, BESOUGAT, 
SUPPLIER, SUPPLIER 

DATA BID,BID, BID, ORDONNER, ORDON 





Pom's n° 25 


1230 


1232 


1234 


1236 


1240 


1245 


1250 


1260 


1262 


1264 


1270 


1275 
1280 


1285 


1290 


1292 


1294 


1296 


1300 
1310 


1312 
1314 
1320 
1322 
1324 


1326 


1330 
1340 


1350 


1360 


1370 


1375 


1380 


1390 


1400 


1410 


1420 


1430 


1432 
1434 


1440 
1442 





NER 

DATA  BIND, BOUND, BOUND, LIER, NOUE 
R 

DATA BITE, BIT, BITTEN, MORDRE, MOR 
DRE 
DATA 
ÎGNER 
DATA BLOW, BLEW, BLOWN, SOUFFLER, S 
QUFE LER 

DATA BREAK, BROKE, BROREN, CASSER, 
ROMPRE 

DATA BREED, BRED, BRED, ELÈVER, ELE 
VER 

DATA BRING, BROUGAT, BROUGHT, APPO 
RTER, AMENER 

DATA BUIID, BUILT, BUILT, BATIR, CO 
NSTRUIRE 

DATA BURN, BURNT, BURNT, BRULER, BR 
ULER 

DATA BURST, BURST, BURST, ECLATER, 
ECLATER 

DATA BUY, BOUGHT, BOUGAT, ACHETER, 
ACHETER 

DATA CAST,CAST, CAST, JETER, JETER 
DATA CATCH, CAUGHT, CAUGAT, ATTRA 
PER, SAISIR 

DATA CHIDE,CHID, CHIDDEN, GRONDER 
7 GRONDER 

DATA CHOOSE, CHOSE, CHOSEN, CHOISI 
R, CHOISIR 

DATA CLEAVE, CLEFT, CLEFT, FENDRE 
, F'ENDRE 

DATA CLING, CLUNG, CLUNG, S ''ACCROC 
HER, S'ACCROCHER 

DATA CLOTHE, CLED, CLAD, VETIR, VET 
IR 

DATA COME, CAME, COME, VENIR, VENIR 
DATA COST, COST, COST, COUTER, COUT 
ER 

DATA CREEP, CREPT, CREPT, RAMPER, R 
AMPER 

DATA CROW, CREW, CROWED, CHANTER, C 
HANTER 

DATA CUT,CUT, CUT, COUPER, COUPER 
DATA DARE, DURST, DARED, OSER, OSER 
DATA DEAL, DEALT, DEALT, DISTRIBUE 
R,DISTRIBUER 


BLED, BLED, BLED, SAIGNER, SA 


DATA  DIG,DUG, DUG, CREUSER, CREUS 
ER 

DATA DO, DID, DONE, FAIRE, FAIRE 
DATA DRAW, DREW, DRAWN, DESSINER, T 
IRER 

DATA DREAM,DREAMT, DREAMT, REVER, 
REVER 


DATA DRINK, DRANK, DRUNK, BOIRE, BO 
IRE 
DATA DRIVE, DROVE, DRIVEN, POUSSER 
+ CONDUTRE 
DATA DWELL, DWELT, DWELT, DEMEURER 
? DEMEURER 
DATA EAT,ATE, EATEN, MANGER, MANGE 
R 
DATA 
MBER 
DATA 
NTER 
DATA 
ENTIR 
DATA FIGHT, FOUGAT, FOUGAT, COMBAT 
TRE, SE BATTRE 
DATA FIND, FOUND, FOUND, TROUVER, T 
ROUVER 
DATA FLEE, FLED, FLED, FUIR, FÜIR 
DATA FLING, FLUNG, FLUNG, LANCER, L 
ANCER 
DATA FLY,FLEW, FLOWN, VOLER, VOLER 
DATA FDRBEAR, FORBORE, FORBORNE, S 
'ABSTENIR, S'ABSTENIR 


FALL, FELL, FALLEN, TOMBER, TO 
FEED, FED, FED, NOURRIR, ALIME 


FEEL, FELT, FELT, SENTIR, RESS 
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1444 


1450 


1452 


1454 


1460 


1470 


1472 
1474 


1480 


1490 
1495 


1500 


1510 


1520 
1530 


1532 


1534 


1540 


1550 


1560 


1570 


1580 


1582 


1584 


1590 


1592 


1594 
1600 


1602 


1604 


1610 


1620 


1630 


1640 


1642 


1644 


1650 


1660 


1670 


1680 


1682 


DATA  FORBID, FORBADE, FORBIDDEN, D 
EFENDRE, DEFENDRE 

DATA  FORGET, FORGOT, FORGOTTEN, OU 
BLIER, OUBLIER 

DATA FORGIVE, FORGAVE, FORGIVEN, P 
ARDONNER, PARDONNER 

DATA  FORSAKE, FORSOOK, FORSAKEN, À 
BANDONNER, ABANDONNER 

DATA FREEZE, FROZE, FROZEN, GELER, 
CONGELER 

DATA GET, GOT, GOT, OBTENIR, DEVENI 
R 
DATA 
DATA 
NDRE 
DATA 
NER 
DATA GO,WENT, GONE, ALLER, ALLER 
DATA  GRIND, GROUND, GROUND, MOUDRE 
, MOUDRE 

DATA GROW, GREW, GRONN, CROITRE, GR 
ANDIR 
DATA 
RE 
DATA 
DATA 
OUIR 
DATA HEAVE, HOVE, HOVE,SE SOULEVE 
R, SE SOULEVER 

DATA HENW, HEWED, HEWN, TAILLER, TAI 
LLER 
DATA 
HER 
DATA 
R 
DATA 
ENIR 
DATA  HURT, HURT, HURT, BLESSER, FAI 
RE SOUFFRIR 

DATA REEP, KEPT, KEPT, GARDER, GARD 
ER 

DATA XNEEL, KNELT, KNELT, S'AGENOU 
ILLER, S'AGENOUILLER 

DATA KNIT,KNIT,RNIT, TRICOTER, TR 
ICOTER 
DATA 
SAVOIR 
DATA LADE, LADED, LADEN, CHARGER, C 
HARGER 

DATA LAY,IAID, LAID, POSER, POSER 
DATA LEAD, LED, LED, CONDUIRE, DIRI 
GER 

DATA LEAN, LEANT, LEANT, SE PENCHE 
R, SE PENCHER 

DATA LEAP, LEAPT, LEAPT, BONDIR, BO 
NDIR 

DATA LEARN, LEARNT, LEARNT, APPREN 
DRE, APPRENDRE 

DATA LEAVE, LEFT, LEFT, LAISSER, QU 
IITER 

DATA LEND, LENT, LENT, PRETER, PRET 
ER 

DATA LET,LET, LET, LAISSER, PERMET 
TRE 

DATA LIE,LAŸY, LAIN,ETRE COUCHE, E 
TRE COUCHER 

DATA LIGHT, LIT, LIT, ALLUMER, ALUM 
ER 

DATA LOSE, LOST, LOST, PERDRE, PERD 
RE 

DATA MAKE,MADE,MADE, FAIRE, FABRI 
QUER 

DATA MEAN,MEANT, MEANT, SIGNIFIER 
, VOULOIR DIRE 

DATA MEET, MET, MET, RENCONTRER, RE 
NCONTRER 

DATA MISTAKE, MISTOOK, MISTAKEN, S 
£ TROMPER, SE TROMPER 


GILD, GILT, GILT, DORER, DORER 
GIRD, GIRT, GIRT, CEINDRE, CEI 


GIVE, GAVE, GIVEN, DONNER, DON 


HANG, HUNG, HUNG, PENDRE, PEND 


HAVE, HAD, HAD, AVOIR, AVOIR 
HEAR, HEARD, HEARD, ENTENDRE, 


HIDE, HID, HIDDEN, CACHER, CAC 
HIT, HIT, HIT, FRAPPER, FRAPPE 


HOLD, HELD, HELD, TENIR, MAINT 


KNOW, XNEW, KNOWN, CONNAITRE, 


1684 


1690 
1695 


1700 
1710 
1712 
1714 
1720 
1730 
1740 
1750 
1755 
1760 
1770 
1772) 
1774 
1780 
1790 


1800 
1810 


1812 


1814 


1820 


1825 


1830 


1840 


1842 


1844 


1846 


1850 


1860 


1865 


1870 


1875 
1880 


1881 


1882 


1883 


1884 


1885 


1886 


1887 
1890 


1895 


DATA 
CHER 
DATA 
DATA 
RQUER 
DATA PUT, PUT, PUT, METTRE, PLACER 
DATA READ, READ, READ, LIRE, LIRE 
DATA  REND, RENT, RENT, DECHIRER, DE 
CWIRER 

DATA RID,RID,RID,DEBARRASSER, DE 
BARRASSER 

DATA RIDE, RODE, RIDDEN, ALLER À C 
HEVAL, ALLER A VELO 

DATA RING, RANG, RUNG, SONNER, SONN 
ER 

DATA RISE,ROSE,RISEN,SE LEVER,S 
E LEVER 

DATA RUN, RAN, RUN, COURIR, COURIR 
DATA SAW, SAWED, SAWN, SCIER, SCIER 
DATA SAY,SAID, SAID, DIRE, DIRE 
DATA SEE, SANN, SEEN, VOIR, VOIR 
DATA SEEK, SOUGHT, SOUGHT, CHERCHE 
R, CHERCHER 

DATA  SEETHE, SOD, SODDEN, BOUILLIR 
, BOUILLIR 

DATA SELL, SOLD, SOLD, VENDRE, VEHD 
RE 
DATA 
OÏER 
DATA SET, SET, SET, POSER, PLACER 
DATA SHAKE,SHOOKE,SHAKEN, SECOUE 
R, SECOUER 

DATA  SHEAR, SHORE, SHORN, TONDRE, T 
ONDRE 

DATA SHED, SHED, SHED, VERSER, VERS 
ER 

DATA SHINE, SHONE, SHONE, BRILLER, 
LUIRE 

DATA  SHOE, SHOD, SHOD, CHAUSSER, CH 
AUSSER 

DATA  SHOOÏ!, SHOT, SHOT, TIRER, DONN 
ER UN COUP DE PIED 

DATA SHOW, SHOWED, SHOWN, MONTRER, 
EXPOSER 

DATA  SHRED, SHRED, SHRED, MONTRER, 
MONTER 

DATA SHRINK, SHRANK, SHRUNK, SE RE 
TRECIR, SE RETRECIR 

DATA  SHRIVE, SHROVE, SHRIVEN, CONF 
ESSER, CONFESSER 

DATA  SHUT, SHUT, SHUT, FERMER, CLOR 
E 

DATA SING, SANG, SUNG, CHANTER, CHA 
NTER 

DATA  SINK, SANK, SUNK, ENFONCER, EN 
FONCER 

DATA SIT, SAT, SAT, 
RE ASSIS 

DATA SLAY, SLEN, SLAIN, TUER, TUER 
DATA SLEEP, SLEPT, SLEPT, DORMIR, D 
ORMIR 
DATA 
ISSER 
DATA 
ANCER 
DATA SLINK, SLUNK, SLUNK, SE GLISS 
ER, SE GLISSER 

DATA SLIT,SLIT, SLIT, FENDRE, FEND 
RE 
DATA 
ENTIR 
DATA  SMITE, SMOTE, SMITTEN, FRAPPE 
R, FRAPPER 

DATA SOW, SOWED, SONN, SEMER, SEMER 
DATA SPEAK, SPOKE, SPOKEN, PARLER, 
PARLER 

DATA SPEED, SPED, SPED, SE HATER,S 
E HATER 


MOW, MONED, MOWN, F'AUCHER, F'AU 


PAY, PAID, PAID, PAYER, PAYER 
PEN, PENT, PENNED, PARQUER, PA 


SEND, SENT, SENT, ENVOYER, ENV 


ETRE ASSIS, ET 


SLIDE, SLID, SLID,GLISSER, GL 


SLING, SLUNG, SLUNG, LANCER, L 


SMELL, SMELT, SMELT, SENTIR, S 


1900 








































1910 


1912 


1914 


1916 


1918 


1920 


2922) 


1924 


1930 


1932 


1934 


1940 


1942 


1944 


1946 


1948 


DATA SPELL, SPELT, SPELT, EPELER, O 

RTHOGRAPHIER 

DATA  SPEND, SPENT, SPENT, DEPENSER 

, DEPENSER 

DATA SPILL, SPILT, SPILT, REPANDRE 

, REPANDRE 

DATA SPIN, SPUN, SPUN, FILER, TOURN 

ER 

DATA SPIT,SPIT, SPIT, CRACHER, CRA 

CHER 

DATA SPLIT, SPLIT, SPLIT, FENDRE, F 

ENDRE - 

DATA SPOIL, SPOILT, SPOILT, GATER, 

ABIMER 

DATA SPREAD, SPREAD, SPREAD, ETEND 

RE, ETENDRE 

DATA SPRING, SPRANG, SPRUNG, S'ELA 

NCER, S'ELANCER 

DATA STAND, STOOD, STOOD, SE TENIR 
DEBOUT, SE DRESSER 

DATA STAY, STAID, STAID, SÉJOURNER 

, RESTER 

DATA  STEAL, STOLÉ, STOLEN, VOLER, D 

EROBER 

DATA STICK, STUCK, STUCK, ADHERER, 

COLLER 

DATA  STING, STUNG, STUNG, PIQUER, P 

IQUER 

DATA STINK, STANK, STUNK, PUER, PUE 

R 

DATA  STREW, STREWED, STREWN, JONCH 

ER, JONCHER 

DATA STRIDE, STRODE, STRIDDEN, MAR 


présenté. 


Nouvelle difficulté, NOIR & BLANC : 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la couleur. 
Chacun comporte un numéro qui représente le 

nombre de cellules voisines blanches... A 

vous de reconstituer le décor original ! 

HEXAGONE MAGIQUE est encore plus 
délicat, même principe que le carré magique, 
mais ici vous devrez installer les chiffres de 1 
à 19 dans un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 





1950 


1951 


1952 


1953 


1954 


1955 


1956 


1960 


.1965 


1970 


1980 


1990 


2000 
2010 


2015 


2020 


2022 


Au sommaire de fa disquette LUDOLOGIC, 
trois jeux de réflexion de difficulté croissante. 

Ces jeux qui nécessitent des neurones äussi 
calmes qu'entrainés, ne devraient pas décevoir 
les amateurs de puzzles et autres casse-têtes. 


Il n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 


Fidèle à son habitude, Pom's vous propose sur cette disquette tes 
sources des routines écrites par Sylvie Gallet en assembleur Lisa 
2.5. Bien entendu, le Basic est également listable. TAQUIN et 
NOR & BLANC utilisent leur propre routine graphique qui 
permet de dessiner plus rapidement qu'avec des shapes. 







CHER À GRANDS PAS,SE DEPECHER 
DATA STRIKE, STRUCK, STRUCK, FRAPP 
ER, FAIRE GREVE 

DATA STRING, STRUNG, STRUNG, ENFIL 
ER, ENFILER 

DATA STRIVE, STROVE, STRIVEN, S'EF 
FORCER, S'EFFORCER 

DATA SWEAR, SWORE, SWORN, JURER, JU 
RER 

DATA SWEAT, SWEAT, SWEAT, SUER, SUE 
R 

DATA  SWEEP, SWEPT, SWEPT, BALAYER, 
BALAYER 

DATA SWELL, SWELLED, SWOLLEN, ENFL 
ER, ENFLER 

DATA SWIM, SWAM, SWUM, NAGER, NAGER 
DATA SWING, SWUNG, SWUNG, BALANCER 
, BALANCER 

DATA TAKE, TOOK, TAKEN, PRENDRE, PR 
ENDRE 

DATA  TEACH, TAUGHT, TAUGHT,ENSEIG 
NER, ENSEIGNER 

DATA  TEAR, TORE, TORN, DECHIRER, D 
ECHIRER 

DATA TELL, TOLD, TOLD, DIRE, DIRE 
DATA THINK, THOUGHT, THOUGAT, PENS 
ER, REFLECHIR 

DATA  THRIVE, THROVE, THRIVEN, PROS 
PERER, PROSPERER 

DATA THROW,THRENW, THROWN, JETER, L 
ANCER 

DATA THRUST, THRUST,THRUST, LANCE 
R, LANCER 












au 






















2024 


202$ 


2028 


2029 


2030 


2040 


2042 


2044 


2050 
2052 


2054 


2056 


2058 


2059 


2060 


2062 


2400 
2500 


Une nouvelle disquette de jeux : Ludologic 


DATA TREAC, TROD, TROD, FOULER, FOU 
LER AUX PIEDS 

DATA UNDERSTAND, UNDERSTOOD, UNDE 
RSTOOD, COMPRENDRE, COMPRENDRE 
DATA  UNDO, UNDID, UNDONE, DEFAIRE, 
DEÉFAIRE 

DATA  UPSET, UPSET, UPSET, RENVERSE 
R, RENVERSER 

DATA WAKE, WOKE, WOKEN, EVEILLER, S 
*EVEILLER 

DATA WEAR, WORE, WORN, PORTER, PORT 
ER UN VETEMENT 


DATA WEAVE, WOVE, WOVEN, TISSER, TI 
SSER 

DATA WEEP,WEPT, WEPT,PLEURER, PLE 
URER 

DATA WIN, WON, WON, GAGNER, GAGNER 
DATA WIND, WOUND, WOUND, ENROULER, 
ENROULER 

DATA  WITHDRAW, WITHDREW, WITHDRAW 
, RETIRER, RETIRER 


DATA WITHSTAND, WITHSTOOD, WITHST 
COD, RESISTER A,RESISTER À 

DATA WORK, WROUGAT, WROUGAT, TRAVA 
ILLER, TRAVAILLER 

DATA WRING, WRUNG, WRUNG, TORDRE, T 
ORDRE 

DATA WRITE, WROTE, WRITTEN, ECRIRE 
, ECRIRE 

DATA WRITHE, WRITHED, NRITHEN, SE 
TORDRE, SE TORDRE 


"{C)1984 -WOUTERS YVES 





80,00 F Franco, 
Bon de commande page 74 
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e programme, écrit en 

assembleur , permet la 

lecture et l'écriture 

directe sur l'un des 
280 blocs d'une disquette 
ProDOS. (RSPD : Read and Save 
ProDos). 


Utilisation 


L'affichage 80 colonnes est 
indispensable. Sur un Apple //c 
ou un Apple //e mis à niveau il 
utilise les caractères souris ; 
toutefois il fonctionne sans 
problème sur un ancien //e, la 
présentation étant simplement 
moins agréable. 

Il faut sauvegarder le fichier objet 
(R.S.P.D.OBJET) sur une 
disquette ProDOS à l'aide des 
‘Utilitaires Système’ avant de 
lancer le programme. 

Ceci fait, exécutez le programme. 
Le message de présentation doit 
alors apparaître. Insérez ensuite la 
disquette ProDOS que vous 
voulez lire ou modifier dans le 
lecteur 1 (lecteur integré sur un 
{/c) et appuyez sur <RETURN:>. 
La disquette se met à tourner et le 
contenu du block O apparaît sur 
l'écran. 


Commandes 


+ fièches : déplacement du 
curseur sur l'écran ; 


° éetflèches gauche ou droite : 


Récapitulation 
R.S.P.D.OBJET 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE R.S.P.D.OBJET,A$6000,L$F45 


6000- 20 39 FB A9 FF 85 32 20 
6008- 58 FC AD 98 BF 29 02 DO 
6010- 17 A9 19 A0 6F A2 07 86 
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lecture du bloc précédant ou du 
bloc suivant ; 


. Get flèches gauche ou droite : 
lecture des blocs précédant ou 
suivant par pas de 10 ; 


+ <espace> : changement de 
page pour lire le premier ou le 
second groupe de 256 octets (1 
bloc contient 512 octets) ; 


+ Lorsque le curseur est sur un 
octet, on peut modifier ce dernier 
en tapant directement le code 
hexadécimal voulu ; 


e CTRL-A : entrée dans le 
mode d'insertion des caractères 
(jusqu'à un nouveau CTRL-A) ; 


+ CTRL-B : entrée du numéro 
de bloc pour que son contenu soit 
affiché sur l'écran (et ceci sans 
passer par les touches & et G). 


+ CTRL-C : changement de 
lecteur ( Drive 1-2). 


+ CTRL-S : sauvegarde des 
modifications éventuelles sur la 
disquette (attention : l'ancien 
contenu du bloc est alors perdu). 


° CTRL:X : switch entre deux 

types de caractères : 

- Tous les caractères pouvant 
être affichés le sont (y compris 
les caractères souris). 

- Les caractères affichés sont 
obtenus par ORA #$80' pour 
mettre leur bit 7 à un ( les 
valeurs ‘O0 sont alors 
affichées sous la forme du 
caractère ”." ), 


6018- 06 86 07 20 D4 69 20 B9 
6020- 69 20 B9 69 20 B9 69 60 
6028- 38 AD CO FB FO 05 C9 EO 
6030- FO OI 18 66 09 A2 03 B5 
6038- 36 9D 3A 6F CA 10 F8 A9 
6040- 03 20 95 FE A9 11 20 ED 
6048- FD 20 58 FC A9 01 85 06 
6050- A9 01 85 07 A9 2A A0 6A 
6058- 20 D4 69 A9 91 AO 6A 20 
6060- D4 69 A9 F5 A0 6A 20 D4 
6068- 69 A9 7A A0 6B 20 D4 639 


Marc Rogliano 


+ ESC, enfin, pour quitter le 
programme. 


Précisions 
I convient de souligner ici 
quelques points : 


- d'abord, un emprunt : la 
routine sonore du ‘Moniteur 
étendu’ de Thierry le Tallec 
(Pom's 8) ; 

- le buffer utilisé va de l'adresse 
$4000 à l'adresse $41FF (un bloc 
ProDOS équivaut à 2 secteur DOS 
3.3 c'est-à-dire à 5200 octets) ; 

- au démarrage, le programme 
teste s'il y a une carte 80 colonnes 
et s'arrête dans le cas contraire ; 
d'autre part, il teste également la 
machine sur laquelle il tourne et 
s'il peut utiliser les icônes souris, 
dans le cas contraire, ceux-ci 
seront remplacés par des 
caractères standards comme, par 
exemple, ‘-’ ou ‘!” pour les 
cadres ; 

- enfm, les erreurs concernant le 
disque sont détectées et affichées. 


Note : on peut aussi lire des 
disques formattés en DOS 3.3 ou 
PASCAL avec RS.P.D.OBJET, 
mais il faut alors se rappeler la 
correspondance entre les blocs 
ProDOS et les secteurs logiques 
des autres systèmes d'exploitation 
(voir Pom's n° 18 et 19). 


6070- A9 FB A0 6B 24 09 30 04 
6078- A9 1D AO 6C 20 D4 69 20 
6080- B9 69 8D 10 CO AD 00 CO 
6088- 10 FB C9 8D FO 09 8D 10 
6090- CO 20 B9 69 4C 85 60 20 
6098- 58 FC A9 12 20 ED FD 20 
60A0- 58 FC A9 04 85 1E A9 03 
60A8- 8D 3E 6F A9 60 8D 3F 6F 
6080- A9 00 8D 40 6F 8D 42 6F 
60B8- 8D 43 6F A9 40 8D 41 6F 
60C0- 20 00 BF 80 3E 6F 90 06 


Source ‘R.S.P.D.SOURCE" Le 


BPL SAVEIO 


Assembleur ProCODE LDA 43 
USR OUTPRT 

DSK R.S.P.D.OBJET SETTXT EQU SFB339 RRARARRRARRRRRRRRRARARARRAAARARAÉ 
HRRRRARARRRRÉRÉ AR RÉRÉAÉÉÉRRÉ SE COUT EQU SFDED *. AFFICHAGE. DE. LA. PRESENTATION. * 
SEE MANENE 2 RE suce. +* SPKR EQU $C030 RARRRRRRARRRÉARARRRRRRRÉR RARE ÉEÉ 
2%, , UDIETTIAIRE,  R:S.P, Du." BASCALC EQU $FBC1 DEB.80 LDA #17 
#**,, (READ.&.SAVE.PRODOS) ..,** PRBYTE EQU  $FDDA UJSR COUT 
#4*,,......MARC.ROGLIANO...#* FRMNUM  EQU S$SDD67 JSR HOME 
CE Se DNS MS DA ## AYINT EQU S$E10C LDA #$01 
RRRRRARERARRÉRARARÉRÉÉ AE RE LINPTR EQU SED24 STA COL 
*,ASm.Procode GIVAYF EQU $E2F2 LDA #$01 

ORG $6000 MOV2F EQU S$SEB63 STA LIG 
RRRRARARARÉARARRRRAÉRÉR RE FDIVT EQU S$EA69 LDA #<PRES.0 
*,.ADRESSES .PAGE.ZERO. . * FADDT EQU S$E7C1 LDY #>PRES.0 
RRRÉRRRRRRRRÉRRRERÉR AE OUTPRT EQU S$FE95 USR STROUT40 
COL EQU $06 DAME A LDA #<PRES.1 
LIG EQU $07 *,.INITIALISATION..* LDY #>PRES.1 
CAR EQU $08 *.//c.ou.new.//e.?.* USR STROUT40 
ICONE EQU $09 RRARRRRRRARRAAÉRRR RÉ LDA Æ#<PRES,2 
AFFI.L  EQU $1A JSR SETTXT : TEXT LDY #>PRES.2 
AFFI.H EOU $1B LDA #$FF USR STROUT40 
SWITCH EQU SIC STA $32 : NORMAL LDA #<PRES,3 
CURS EQU $1E JSR HOME LDY #>PRES.3 
LB EQU $EB LDA $BF98 USR STROUT40 
HB EQU $EC AND ##00000010 LDA #<PRES.4.1 
LB. EQU $ED BNE OLISGOUD LDY #>PRES.4.1 
HB. EQU $EE LDA  #<MESSERR BIT ICONE 
INTER EQU $EF LDY  #>MESSERR BMI PRESICON 
DISK. L EQU $FA LDX #$07 LDA #<PRES.4.2 
DISK.H ‘EQU «SFB STX COL IDY #>PRES.4.2 
CURS.COL EQU S$FC STX LIG PRESICON JSR STROUT40 
CURS.LIG EQU S$SFD USR STROUT40 JSR  SOUND 
L.LB EQU $FE JSR  SOUND STA $C010 
L.HB EQU $FF USR  SOUND W.KBD LDA  $C000 
CELLELSLLLITIIII111111 JSR  SOUND BPL W.KBD 
*,. ADRESSES. SYSTEME, . * RTS CMP  #$8D 
RRRRRRRARMNRU RÉ AEAÉÉ A À OLISGOUD SEC BEQ XXX 
STO80.1 EQU S$CO001 LDA  $FBCO STA $COI0 
STO80.0 EQU $C000 BEQ IIC USR SOUND 
PAGE1 EQU $C054 CMP. #$E0 JMP W.KBD 
PAGE2 EQU $CO55 BEQ NEW.ITE DD DH D DD HD D DD A D TE 
BUTTONO EQU $CO61 CLC *. CHARGEMENT. DU. BLOCK. O0. * 
BUTTON1 EQU $CO062 NEW.IIE EQU #* PET LILLELLLLLELESLESIEELS 
ARRRRRR ARR IIC ROR ICONE XXX USR HOME 
*,, ROUTINES. . * LDX #3 LDA #18 
ARARMAAARAEÉ EE SAVEIO LDA $36,X JSR COUT 
HOME EQU  $FC58 STA SAVE, X USR HOME 
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#504 
CURS 
#503 
TABLE 
#$560 
TABLE +1 
#$00 
TABLE +2 
TABLE+4 
TABLE+S5 
#$40 
TABLE +3 
SBF00 
$80 
TABLE 
AFF.MENU 
ERROR 
DEB. 80 


Rhhhhhhtthhhhtthhhtthhhhtt th 


*,.AFICHAGE. COMMANDES+CADRE . * 


RhhhhthtththtRtttthttthttthth th 


AFF.MENU LDA 
STA 
LDA 
STA 
LOA 
LDY 


AAAIO JSR 


AAAI1 JSR 
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#$00 

COL 

#$01 

LIG 
#<AAA0 
#>AAAO 
STROUT80 
#<AA4A0. 1 
#>AAAO. 1 
ICONE 
AAAIO 
#<A4A40.2 
#>AAA0. 2 
STROUT80 
#<AAA1 
#>AAA1 
STROUT80 
#<AAA1.1 
#>AAA1.1 
ICONE 
AAAI1 
#<AAA1,.2 
#>AAA1.2 
STROUT80 
#<A4A2 
#>AAA2 
STROUT80 
#<AA42. 1 


LDY #>AAA2.1 
BIT ICONE 
BMI AAAI2 
LDA  #<AA42,2 
LDY 4#>Aa442.2 
AAAI2 JSR STROUT80 
LDA  #<AAA3 
LDY 4#>A4A3 
JSR  STROUT80 
JSR CADRE 
LDA 4501 
STA SWITCH 
LDA #$40 
STA L.HB 
LDA 4#$00 
STA L.LB 
STA CURS.COL 
STA CURS.LIG 
STA DISK.H 
STA DISK.L 
USR AFF... 
JSR AFF. 
JSR  SOUND 
STA $C010 


RRARRRRRARRRRRRRRRRRRRRRRR RÉ 


*. ATTENTE. D'UNE. COMMANDE. * 
RRRRARRRR RAR ARR tRRR R # 
WAIT.KBD LOA $C000 

BPL WAIT.KBD 

CMP 4#$88 

BNE XXX.0 

JMP GAUCHE 
XXX.0 CMP #$95 

BNE XXX.1 

UMP DROITE 
XXX.1 CM #$8B 

BNE XXX.2 

JMP HAUT 
XXX.2 CMP 4#$8A 

BNE XXX.3 

JMP BAS 
XXX.3 CMP 4#$A0 

BNE XXX.4 

UMP SPACE 
XXX.4 CMP 4581 

BNE XXX.5 

JP C.A. 
XXX.5 CMP #$82 

BNE XXX.6 


XXX.7 CMP 


XXX.8 CMP 


XXX.9 CMP 


XXX.10 JSR 


XXX.11 JSR 


C.8. 
#583 
XXX.7 
C.C. 
#593 
XXX.8 
CYS; 
#598 
XXX.9 
C.X, 
#59B 
XXX.10 
ESC 
TEST. 
XXX.11 
ENT.CAR 
SOUND 
$CO010 
WAIT.KBD 


Rhhhhhhhttthhhhéthhhtétthhhttthh 


*.CARACTERE.ENTRE.0-9.OU.A-F.?.,* 


RRRRRARRRRRRRRRRRRRRRRRRRRRRRRRRR 


TEST CMP 
BCC 
CMP 
BCS 
CMP 
BCS 
CMP 
BCC 
TESTO CLC 
RTS 
TEST SEC 
RTS 


#$B0 
TESTO 
#$c7 
TESTO 
#5c1 
TESTI 
#$BA 
TEST1 


RARRRRRRRRRRRRRRRRRRRRRÉRRÉRRE 


*, CARACTERE .ENTRE.0,ET.9.2?,* 


Rhhéétihhhtthhhtthhhhtéttthh 


TEST. CMP 


TEST. 1"CEC, 


TESTÉ PIN SEC 


#58D 
TEST 1 
+580 
TEST. .2 
CASE: 
TEST 2 


RRARRRRRRÉRRRRRRRRRRRRRRRÉRRRRRÉRÉR 


*DEPLACEMENTS . CURSEUR. SUR. ECRAN* 


11 


02 








RRRRRRÉÉAAARÉERRRAÉRÉRÉRÉRÉRRÉRÉRRÉRÉ EX BNE HAUT 4 UMP WAIT.KBD 
GAUCHE LOA BUTTONO LDA #$40 GAUCHE.1 SEC 

BPL XXX.A STA L.HB LDA DISK.L 

UMP  GAUCHE.. LDA #$Fr0 SBC #$01 
XXX,A LDA BUTTON1 STA NL EE STA) DISREL 

BPL XXX.,B HBUT3 DEC! CURS:. L1G LDA DISK.H 

UMP GAUCHE, JSR AFF. SBC #$00 
XXX.B LDACURS;COL STA S$COI0 STA DISK.H 

BNE GAUCHE! UMP WAIT.KBD SR ARE." 

JSR  SOUND HAUT 4 DEC CURS.LIG STA $CO10 

STA $CO10 DSRPAEFEES UMP  WAIT.KBD 

UMP WAÏT.KBD STA S$C010 DROITE. LDA DISK.H 
GAUCHE DEC CURS.COL UMP WAIT.KBD BE$ DROITE.1 

USRNAFIRE"T BAS LDA CURS.LIG LDA DISK.L 

STA w$C010 CMP #$S1F CMP #5$17 

JMP WAIT.KBD BCC BAS] BCC DROITE.1 
DROITE LDA BUTTONO JSR  SOUND JSR  SOUND 

BPL XXX.C STA $C010 STA $CO010 

UMP DROITE.. JUMP  WAIT.KBD UMP WAIT.KBD 
XXX.C LDA BUTTON1 BAS1 INC CURS.LIG DROITE: CIC 

BPL XXX.D LDA CURS.LIG LDA DISK.L 

JMP DROITE, ASL ADC #$01 
XXX.D LDA CURS.COL ASL STAM DISK 

CMP #$0F ASL LDA DISK.H 

BCC DROITE] ASL ADC #$00 

UJSR  SOUND BCC BAS3 STA DISK.H 

STA $CO10 CMP L,.LB USR AFF., 

JMP WAIT.KBD BNE BAS3 STA S$CO10 
DROITE INC CURS.COL CLC JUMP WAIT.KBD 

JSR LAFF,... ADC #$10 Dh HD DE D HE DE DE 

STA $CO10 STA L,LB w, DEPLACEMENTS. DISQUE, (*10).* 

UMP WAIT.KBD BNE BAS2 A A ee of ee ee of et 
HAUT LDA CURS.LIG LDA #$41 GAUCHE... LDA DISK.H 

BNE HAUTI STA L.HB BNE GAUCHE.2 

JSR  SOUND BAS2 JSR AFF. LDA DISK.L 

STA $C010 STA S$CO010 CMP #$0A 

JMP WAIT.KBD UMP WAIT.KBD BCS GAUCHE.,2 
HAUT 1 ASL BAS3 TJSRIARESE-" JSR  SOUND 

ASL STA  $CO10 STA  $CO10 

ASL UMP  WAIT.KBD UMP WAÏT.KBD 

ASL RRARRÉRRARARÉRÉEÉRÉAARRÉRRÉARARÉR RÉ ÉÉ GAUCHE .2 SEC 

BCS HAUT? *, DEPIACEMENTS. SUR. LE. DISQUE. * LODAV DISKeL 

CMP DIE: RRARN A À À om mm nn ù ù à € 2% à À À à à à à à À SBC $50A 

BNE  HAUT4 GAUCHE. LDA DISK.H STA DISK.L 

SEC BNE GAUCHE.1 LDA DISK.H 

SEC #$10 LDA DISK.L SBC #$00 

STANL LE BNE GAUCHE. 1 STA.“DISK-'A 

JUMP  HAUT3 JSR  SOUND JSR AFF.. 
HAUT2 CMP L.LB STA $CO10 STA $CO10 
63C8- FE AS FC C9 OF 90 33 A9 6448- 9D 10 03 C9 OD FO 20 E8 64C8- A9 1B 85 06 A9 B1 85 08 
63D0-"00 85 KC AS FDNC9UTF 90 6450- 8A 48 EO 03 FO 18 AS EF 64D0- 20 3C 69 E6 06 E6 06 A9 
63D8- OA A9 OF 85 FC 20 B9 69 6458- 85 08 20 3C 69 A9 20 85 64D8- 32 85 08 20 3C 69 4C 00 
63E0- 4C OA 64 E6 FD AS FD OA 6460- 08 E6 06 20 3C 69 68 AA 64E0- 65 A9 60 8D 3F 6F A9 06 
63E8- OA OA CA 90 OF C5 FE DO 6468- 8D 10 CO 4C 27 64 68 A9 64E8- 85 07 A9 1B 85 06 A9 31 
63F0- O0B 18 69 10 85 FE DO 04 6470- OD 9D 10 03 ECO O0 FO 34 64F0- 85 08 20 3C 69 E6 06 E6 
63F8- A9 41 85 FF 20 80 66 4C 6478- A9 10 85 B8 A9 03 85 B9 64F8=106"49"B2 85 08 20  ,3C 69 
6400- 77 63 E6 FC 20 80 66 4C 6480- 20 67 DD 20 OC E1 A5 A0 6500- 8D 10 CO 4C 42 61 20 00 
6408- 77 63 20 32 67 8D 10 CO 6488- C9 O1 BO OF 85 FB A5 A1 6508- BF 81 3E 6F BO 06 8D 10 
6410- 4C 42 61 8D 10 CO A9 06 6490- 85 FA 20 39 67 8D 10 CO 6510- CO 4C 42 61 20 BF 68 20 
6418- 85 07 A9 08 85 06 A9 20 6498- 4C 42 61 C9 02 BO OD AS 6518- 32 67 8D 10 CC 4C 42 61 
6420- 85 08 20 3C 69 A2 00 AD 64A0- Al C9 18 BO 07 A5 A0 85 6520- AS 1C F0 07 A9 00 85 IC 
6428- 00 CO 10 FB 85 EF 20 B9 64A8- FB 4C 8E 64 20 5F 67 20 6528- 40 2F 65 A9" 01485 4C 20 
6430- 61 8A 48 90 OD 20 5F 67 64B0- B9 69 8D 10 CO 4C 42 61 6530- 32 67 8D 10 CO 4C 42 61 
6438- 20 B9 69 68 8D 10 CO 4C 64BS=MAD AIFN6F C9 EC “RO122 A9 65389-12059 69 20 59:69 A91S 
6440- 42 61 68 AA AS EF 29 7F 64C0- EO0 8D 3F 6F A9 06 85 07 6540- 20 ED FD A2 03 BD 3A 6F 
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UMP  WAIT.KBD UMP WAIT.KBD SBC "L.LB 
DROITE,, LDA DISK.H ARRARRRERARRRHHHREREE ER À À TAY 
BEQ DROITE.2 *. ENTRER. DES .CARACTERES. * LDA INTER 
LDA DISK .L RARRRRRRRRRRRRRRRRRRRRARR STA {B/LB)J,# 
CMP  #$0E C-A. STA $CO1i0 LDA CURS.COL 
BCC DROITE.2 C.A.0 JSR AFF.CUR CMP #$0F 
JSR  SOUND LDA CURS.COL BCC C.A.6 
STA S$SCO10 LEX #503 LDA #500 
UMP WAIT.KB8D CA 1 DEX s STA CURS.COL 
DROITE .2 CLC BEO C.A.2 LDA CURS.LIG 
LDA DISK,.L CLC CMP #$1iFr 
ADC #S0A ADC CURS.COL BCE NCA; 4 
STA DISK.L UMP C.A.1 LDA #$0F 
LDA DISK.H C.A.2 CIC STA CURS.COL 
ADC #$500 ADC #$09 JSR SOUND 
STA DISK.H STA COL UMP C.A.7 
JSR AFF... LOA CURS.LIG CFA4 INC CURS.LIG 
STA $CO010 ASL LDA CURS.LIG 
JUMP  WAIT.KBD ASL ASL 
CÉLSLLLLLLLILLII LIL ASL ASL 
*.CHANGER.DE PAGE, * ASL ASL 
RARARRRRR RÉ RÉ Rd SEC ASL 
SPACE LDA L.HB SBC L.LB BCC C.A.5 
CMP 4541 LSR CMP L.LB 
BCS SPACE2 LSR BNE C.A.5 
LDA #$41 LSR CLC 
STA L.HB LSR ADC #$10 
LDA 4#500 CLC STA L.LB 
STA L.LB ADC #$508 BNE C.A.5 
LDA CURS.LIG STA LIG LDA #$41 
CMP #$10 LDA #$3F STA L.HB 
BCS SPACEI STA CAR C.A.5 JSR AFF 
CLC USR COL.LIG JMP C.A.0 
LDA #$10 INC COL C.A.6 INC CURS.COL 
ADC CURS.LIG JSR COL.LIG JSR AFF 
STA CURS.LIG C.A.3 LDA $C000 JUMP C.A.0 
SPACE1 JSR AFF. BPL C.A.3 C.A. 7 JSR AFF. 
STA $CO010 STA $C010 STA $C010 
JUMP  WAIT.KBD CMP 4#$81 UMP WAÏT.KBD 
SPACEZ2 LDA #5S40 BEC «C.A,7 AAA A RÉ AÉ ARR À dd 
STA L.HB STA INTER *, ENTRER. UN. BLOCK. * 
LDA #S00 LDA CURS.LIG CELLLLLESLENE SE ESS ST) 
STA L.LB ASL C.B. STA $CO10 
SEC ASL LOA #$06 
LDA CURS. LIG ASL STA LIG 
SBC #$10 ASL LDA 4#$08 
STA CURS.LIG CLC STA COL 
JSR AFF. ADC  CURS. COL LDA #$20 
STA $CO010 SEC STA CAR 


6630- A9 4D 85 06 20 3C 








Pom's n 25 


18 


CB:2 


C3 
C.B.4 





COL.LIG 
#500 
$CO00 
GRBE1 
INTER 
TEST.. 


GB«2 
AFS, 
SOUND 


$C010 
WAÏIT.KBD-. 


INTER 
#$7F 
$310,x 
#$0D 
G:B"4 


#503 
C-B.3 
INTER 
CAR 
COL.LIG 
#$20 
CAR 

COL 
COL.LIG 


$C010 
COBE 


#$50D 
$310,Xx 
#590 
C8 7. 
#$10 
$B8 
#$03 
$B9 
FRMNUM 
AYINT 
$SAO 


C.B.6 CMP 


#$01 
G°H°6 
DISK .H 
$SA1 
DISK.L 
APP". 
$C010 
WAIT.KED 
#$02 
GPBEN. 
$AI 

#518 
CB 
$AO 

DISK .H 
CAES 
AF Fe 
SOUND 
$C010 
WAIT.KBD 


RRARRRARRRÉRRRRRRRRRA 


 #. CHANGER .DE. DRIVE. * 


RARRARARARAARARÉRÉRE 


C.C. LDA 
CMP 
BEQ 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
INC 


TABLE+#1 
#$E0 
cac”1 
#$E0 
TABLE+1 
#$06 
LIG 
#51B 
COL 
#5B1 
CAR 
COL.LIG 
COL 

COL 
#532 
CAR 
COL.LIG 
G'e2 
#560 
TABIE+#1 
#506 
LIG 
#51B 
COL 
#531 
CAR 


COL.LIG 
COL 

COL 

#$B2 

CAR 
COL.LIG 
$co10 
WAIT.KBD 


RRRRARRRARARRRARRARRRR RE 


*. SAUVER . SUR. DISQUETTE. * 


RRARRRARAARRRARRRARRRRRRRX 


es: JSR 
DFB 


ERREUR.S JSR 
JSR 
STA 
UMP 


$BF00 
$81 
TABLE 
ERREUR.S 
$C010 
WAIT.KBD 
ERROR 
AFF. 
+#C010 
WAIT.KBD 


RAARRARRRARARRRARARRRRRÉRR 


*, "SWITCHER".CARACTERES. * 


RARRRRRRRARRRRARÉRRRÉARRRÉ 


GUXE. LDA 


G°Xx22. JSR 


SWITCH 
C.Xx.1 
#$00 
SWITCH 
CEX-2 
#$01 
SWITCH 
AFF 
$C010 
WAIT.KBD 


RRRRRHRRARRARARRRRARARRAÉ 


*, SORTIR. DU. PROGRAMME. * 


RRRRARRRARÉRRAHRÉARARRÉRÉ 


ESC JSR 
JSR 
LDA 
JSR 
LOX 
RESETIO LDA 
STA 
DEX 
BPL 
JSR 
JSR 
JSR 


SOUND 
SOUND 
#21 
COUT 
#3 
SAVE, X 
$36,X 


RESETIO 
HOME 
SOUND 
SOUND 
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STA $C010 STA $C010 JSR COL.LIG 

RTS JSR AFF. INC COL 
AD HD HD HD DD DE DE A JSR  SOUND LDA #$5A FA ol 
*, ENTRER. UNE. VALEUR. HEXA. * UMP WAIT.KBD STA CAR 
RRRARRRRRRRRRRRÉRRRRRRARÉRÉÉ ENT,CAR6S CMP #$C1 JSR COTLIG 
ENT.CAR STA $C010 BCS ENT.CAR? CADRE.2 INC LIG 

STA CAR SEC LDA #$00 

LDA CURS.COL SBC #$B0 STA COL 

LDX #$03 JMP  ENT.CARS LDA #$5A sr2t 
ENT.CAR1 DEX ENT.CAR? SEC STA CAR 

BEQ ENT.CAR2 SBC #$B7 USR COL.LIG 

CC ENT.CAR8 ORA INTER INC COL 

ADC CURS.COL STA INTER LDA #$A0 RU 

JMP  ENT.CAR1 LDA CURS.LIG STA CAR 
ENT.CAR2 CLC ASL JSRAICOL.LIG 

ADC #$09 ASL INC COL 

STA COL ASL LDA #$A4 PLU 

LDA CURS.LIG ASL STA CAR 

ASL GEC JSR COL ALIG 

ASL ADC CURS,COL LDA #$5F PAL 

ASL SEC STA CAR 

ASL SBC L.LB LDA #77 

SEC TAY STA COL 

SBC L.LB LDA INTER JSR COL.LIG 

LSR STA fL.LB),Y INC COL 

LSR STA $C010 INC COL 

LSR USR AFF. LDA #$5A png 

LSR JMP WAIT.KBD STA CAR 

CLC LÉLETTELESLILLLLLLLLLLILLLLL LS. JSR COL.LIG 

ADC #$08 *, TRACE. DU. CADRE .ENTOURANT. * LDA #23 

STA LIG *,LE.CONTENU.DU,BUFFER.,,...* CMP  LIG 

USR COL LG RRARRRRARRRRRRARÉARARRRRÉR ARE BNE CADRE ,2 

LDA CAR CADRE LDA #$5A :"g" INC IG 

CMP  #$CI STA CAR LDA #$00 

BCS ENT.CAR3 JSR COL.LIG STA COL 

SEC LDA #$4C svp" LDA #$5A SRE 

SBC #$B0 STA CAR STA CAR 

JMP ENT.CARA4 INC COL JSR COL.LIG 
ENT,CAR3 SEC CADRE.1 JSR COL.LIG LDA #$DF RES 

SBC #$B7 INC COL STA CAR 
ENT.CAR4 ASL LDA #77 INC COL 

ASL CMP COL CADRE.3 JSR COL.LIG 

ASL BNE CADRE. INC COL 

ASL LDA #$5F PL LDA #77 

STA INTER STA CAR CMP COL 
ENT.CARS LDA SCO00 JSR COL.LIG BNE CADRE.3 

BPL ENT.CARS INC COL LDA #$5F puun 

USR TEST LDA #$A0 PL STA CAR 

BCS ENT.CAR6 STA CAR JSR COL.LIG 
6848- 4C 68 A9 BO 20 ED FD AS 68C8- AO 6E 20 00 6A 20 37 69 6948- CO 8D 55 C0 20 56 69 8D 
6850- FC 05 EF 20 DA FD AS FC 68D0- A9 9F AO 6E 20 00 6A 20 6950- 54 CO 8D 00 CO 60 A8 AS 
6858- A2 03 CA FO 06 18 65 FC 68D8- 37 69 A9 BB AO 6E 20 00 6958- 08 24 09 30 20 C9 5A F0 
6860- 4C 5A 68 18 69 08 85 24 68E0- 6A 20 37 69 A9 9F AO 6E 6960- 04 C9 5F DO 02 A9 A1 C9 
6868- A5 FD OA OA OA OA 38 ES 68E8- 20 00 6A 20 37 69 A9 D7 6968- 4C FO 04 C9 DF DO 02 A9 
6870- FE 4A 4A 4A 4A 18 69 O7 68F0- AO 6E 20 00 6A A9 EA A0 6970- AD C9 51 DO 02 A9 F6 C9 
6878- 20 C1 FB A9 BE 20 ED FD 68F8- 6E 24 09 30 04 A9 F4 A0 6978- 52 DO 02 A9 DE 91 EB 60 
6880- A9 3F 85 32 A5 FD 02 OA 6900- 6E 20 00 6A 20 37 69 A9 6980- C9 09 BO 07 AO 00 84 EB 
6888- OA OA 18 65 FC 38 ES FE 6908- 9F AO 6E 20 00 6A 20 37 6988- 4C AO 69 C9 11 B0 OA AC 
6890- A8 Bi FE 20 DA FD A9 FF 6910- 69 A9 FE A0 6E 20 00 6A 6990- 28 84 EB 38 E9 08 4C AO 
6898- 85 32 A9 BC 20 ED FD 60 6918- 20 37 69 20 B9 69 20 B9 6998- 69 AO 50 84 EB 38 E9 10 
68A0- A9 40 85 EC A9 00 85 EB 6920- 69 8D 10 CO AD 00 CO 10 63A0- A0 04 84 EC AA CA FO 10 
68A8- AO 00 A9 00 91 EB C8 DO 6928- FB C9 8D FO 09 8D 10 CO 69A8- 18 A9 80 65 EB 85 EB A9 
68B0- F9 A9 41 85 EC A0 00 A9 6930- 20 B9 69 4C 24 69 60 A9 69B0- 00 65 EC 85 EC CA DO FO 
68B8- 00 91 EB C8 DO F9 60 A9 6938- 1B 85 06 60 A5 07 20 80 69B8- 60 A2 FF A9 58 AO 1B 88 
68C0- 08 85 07 20 37 69 A9 83 6940- 69 A5 06 4A BO 10 8D O1 69C0- DO FD 2C 30 C0 A8 88 DO 
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INC COL LDA #$A0 LOA AFFI.L 

1DA #$A0 E épi à JSR COUT ADC #16 

STA CAR LDA 4#5A0 STA AFFI.L 

JSR COL.LIG JSR COUT LDA #$00 

INC COL LOA #5BA sup ADC AFFI.H 

LDA #$52 PR JSR COUT STA AFFI.H 

STA CAR LOA 4#$5A0 TYA 

JSR COL.LIG JSR COUT JM  AFFO 

RTS LOA #60 AFF7 RTS 
RARRRRRRRRRRRRARRRARRRRRRR RAR RH RE STA COL RhehttéététéeRthtttt et À # À 
*. AFFICHER. CONTENU. DU. BUFFER . * PIA *, AFFICHER. BUFFER+CURSEUR. * 
RARRRARARRRRRRRRARRRARR ER RAR RSR PHA het dt À à dt À À dd À À À 
AFF LDA L.LB TAX AFF. JSR AFF 

STA AFFI.L INX JSR AFF.CUR 

LDA L.HB TXA RTS 

STA AFFI.H STA- - TIG RARARRRRRRRRRRRRRRRRARRRRRARARARR 

LDA #$07 -LIG8 LDA #$00 *. CHARGER .ET.AFFICHER.UN.BLOCK. * 
AFFO PBA AFF4 PHA ARARRRRRRRR AR RAR RER RAR RER RAR SR RSR 

JSR BASCALC TAY AFF... LOA DISK.L 

LOA' #$03 /COL3 LOA (AFFI.L),Y STA TABLE+4 

STA $24 :CH STA INTER LOA DISK.H 

IDA AFFI.H LDA SWITCH STA TABLE+5 

AND #$01 BEC AFF6 JSR $BF00 

BEQ AFFI LDA INTER OFB $80 

LDA #$B1 ie BEQ AFFS DA TABLE 

JMP  AFF2 ORÀA #$580 BCS ERREUR 
AFF1 IDA #$B0 -U0r STA INTER JSR AFF... 
AFF2 JSR COUT JMP AFF6 JSR AFF. 

LDA AFFI.L AFFS5 LDA #7." RTS 

JSR PRBYTE STA INTER ERREUR JSR EFFACAGE 

LOA #5A0 AFF6 LDA INTER JSR ERROR 

JSR COUT STA CAR JSR AFF... 

LDA #$A0 SEC ++ JSR AFF. 

JSR COUT ROR ICONE Deere RTS 

LDA #500 JSR CON LIG RAR thhathhaihtk 
AFF3 PHA ROL ICONE Dour *, AFFICHER. NUMERO. DU.BLOCK. * 

LDA #50 INC COL RRARRARRRRRRARARARRRRRRRRRARR 

JSR COUT PLA AFF... LDA CURS 

PLa TAY STA LIG 

PHA INY LDA #79 

TAY TYA STA COL 

LDA (AFFI.L),Y CPY #16 LDA #55A se” 

JSR PRBYTE BCC AFF4 STA CAR 

PLA PIA JSR COL.LIG 

TAY TAY LDA DISK.H 

INY INY LDY DISK.L 

CPY #16 CPY.0723 JSR GIVAYF 

TYA BCS AFF7 JSR MOVAF 

BCC AFF3 CLC LDA #$00 
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LDY #14 AFF: . 1 V/DEX JSR BASCALC 


JSR GIVAYF BEC AFF....2 LDA CURS.LIG 
JSR FDIVT CLC ASL 
JSR MOAF ADC TABLEI ASL 
LDA #$00 JMP AFF....1 ASL 
LDY #4 AFF. ..2 CIC ASL 
JSR GIVAYF ADC #$08 STA INTER 
JSR FADDT STA $24 Helsi BCC AFF.X1 
JSR AYINT LDA TABLE1+I ‘LIG LDA #"1" 
LDA $A1 ASL JMP AFF.X2 
STA CURS ASE AFF.X1 LDA #"0” 
STA LIG ASL AFF.X2 JSR COUT 
LDA #$20 ASL LDA CURS.COL 
STA CAR SEC ORA INTER 
JSR COL.LIG SÉCO LEE JSR PREYTE 
LDA #$05 “L1G6 LSR LDA CURS.COL 
JSR BASCALC LSR LDX 4#503 
LDA #$08 COL8 LSR AFF.CURIi DEX 
STA $24 ;:CH LSR BEC AFF.CUR2 
LDX DISK.L CLIC CIC 
LDA DISK.H ADC #$07 ADC CURS.COL 
UJSR LINFTR JSR BASCALC JMP AFF.CURI 
LDA DISK.H LDA #$A0 AFF.CUR2 CLC 
BNE CAF Re 072) JSR COUT ADC #508 
LDA DISK.L LDA TABLE]l+i STA $24 CH 
CMP #$564 ASL LDA CURS.LIG 
ECS AFF, 2 ASL ASL 
CMP  #$0A ASL ASL 
BESNAEES F1 ASL ASL 
LDA #$A0 CLC ASL 
JSR COUT ADC TABLEI1 SEC 
AFF...1 LDA #$A0 SEC SBC L.LB 
JSR COUT SBC L.LB LSR 
AFF...-2 LDA #$0E TAF LSR 
STA $24 ;CA LDA (L.LB),Y LSR 
LDA DISK.4 JSR PRBYTE LSR 
BEQ AFF,..3 LDA #$A0 CLC 
LDA #"1" JSR COUT ADC #$07 
JUMP  AFF,..4 UMP AFT.CUR JSR BASCALC 
AFF...3 LDA #"0" RRRRRRRRRRRRRRÉERRRÉRÉERÉ LDA Æ'>" 
AFF,..4 JSR COUT *. AFFICHER .LE. CURSEUR. * JSR COUT 
LDA DISK.L RÉRRRRRÉRRRRRRRÉRRRÉRRÉR LDA 853F 
JSR PRBYTE AFF.CUR LDA CURS.COL STA S32 
RTS STA TABLE1 LDA CURS.LIG 
RRAHARRRÉRÉRÉRÉRRRRÉRRÉARÉÉRRÉRÉÉARRÉ LDA CURS-L'IG: ASL 
*. EFFACER.ET.AFFICHER.CURSEUR., * STA TABLE1+1 ASL 
#hkhktkk** tt RÉ É EE À RÉ É LDA #40 AS 
AFF.... LDA TABLEI ; COL STA $24 :GH ASL 
LDX 4#$03 LDA #$05 CIC 
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ADC CURS.COL JSR ERROR. STA PAGE2 

SEC LDA #<ERROR.1 JSR COLONNE 

SBC L.LB LDY #>ERROR.I STA PAGEI 

TAY JSR  STROUT80 STA STO80.0 

LDA (L.LB},Y JSR  ERROR. RTS 

JSR PRBYTE LDA  #<ERROR.3 COLONNE TAY 

LDA #$FF ; NORMAL LDY #>ERROR.3 LDA CAR 

STA 532 JSR  STROUT80 BIT ICONE 

LDA fm<"” LDA #<ERROR4.1 EMI X6 

JSR COUT LDY #>ERRORA4.1 CMP  #S5A 

RTS BIT ICONE BEQ XI 
RRRRRARARRARRRRRÉRRARRÉ BMI ERICON CMP #55F 
*,EFFACER.LE. BUFFER. * LDA #<ERROR4.2 BNE X2 
RRRRRRARRRRRRRRRRARRÉ L'DY #>ERROR 4.2 X1 LDA gi 
EFFACAGE LDA #549Q ERICON JSR STROUT80 Xx2 CMP  #$4C 

STA HB JSR ERROR. BEQO X3 

LDA #$00 LDA #<ERROR.1 CMP  #$DF 

STA LE LDY #>ERROR.1 BNE X4 

LDY #$00 JSR  STROUT80 X3 LDA #m-" 
EFF .1 LDA #$00 JSR ERROR. X4 CMP  #$51 

STA (LE),Y LDA #<ERROR.5 BNE X5 

INY LDY #>ERROR.S LDA #"v 

BNE EFF.1 JSR STROUT80 xs CMP #552 

LDA #$41 JSR ERROR. BNE X6 

STA HB JSR  SOUND LDA #$DE 

LDY #$00 JSR SOUND Xx6 EQU * 
EFF.2 LDA #$00 STA $C010 STA (LB),Y 

STA (LB),Y ERRORO LCA $CO00 RTS 

INY BPL ERRORO CALCUL CMP #$09 

BNE EFF.2 CMP #$8D BCS CALI 

RTS BEQ ERRORI LDY #500 
RRRRRRRRRRRRRRRAR AAA RÉ É STA $CO010 SIT Y LB 
*, ROUTINE. DE. TRAITEMENT. DES. * JSR  SOUND UMP SUITE 
*, ERREURS.DU.DISQUE......... * UMP ERR@RO CALI1 CMP #$11 
RRRRRRARARRRRRARAA RAR ARR RAR ERRORI RTS BCS CAL? 
ERROR LDA #$508 ERROR.  LDA #27 LDY #$28 

STA LIG STA COL STY LB 

JSR ERROR. RTS SEC 

LDA #<ERROR. 0 RRARRRRRRÉ RAR RAR AR ERA SEC #$08 

LDY #>ERROR.O 0 Gb 00. d PAM +» JUMP SUITE 

JSR  STROUT80 **, UTILITAIRE. LIGNE. COLONNE. ** CAL2 LDY #$50 

JSR ERROR. LE LC ROON SENS LP ES EE PSN EE) Lt STY LB 

LDA #<ERROR. 1 RRRRRRRRÉRRRRÉRRÉRRRRARARRARRÉÉE SEC 

LDY  #>ERROR.1 COL.LIG LDA LIG SEC #$10 

JSR STROUT80 JSR CALCUL SUITE LDY #$04 

JSR ERROR. LDA COL STY AB 

LDA #<ERROR.2 LSR TAX 

LDY  #>ERROR.2 BCS COLONNE DEX 

JSR STROUT80 STA STO80.1 BEC END 
6CC8- AD F3 F5 F2 AO EC A7 ES 6D48- 00 5F DE C2 AO BA AO C5 6DC8- El EE E7 ES F2 AO Ed ES 
6CDO- E3 F2 El EE AO 5F DE C1 6D50- EE F4 F2 E5 F2 AO F5 EE 6DDO- AO CC ES E3 F4 E5 F5 F2 
6CD8- AO BA AO C5 EE F4 F2 ES 6D58- AO C2 EC EF E3 EB AO A0 6DD8- AO AO AO 5F A0 AO 5A 8D 
6CEO- F2 AO E3 El F2 El E3 F4 6D60- AO AO AO AO 5F AO AO 51 6DE0- AO AO AO D1 F5 E9 F4 F4 
6CE8- ES F2 E5 F3 A0 AO AO A0 6D68- 8D AO AO AO A8 C5 D3 C3 6DE8- ES F2 A9 AO 5A AO A0 C5 
6CFO- 5F 8D AO AO 4C 4C 4C 4C 6D70- BA AO AO AO AO 5A AO 00 6DFO- D3 DO C1 C3 C5 AO BA AO 
6CF8- 4C 4C 4C 4C 4C AO 5A AO 6D78- 41 AO 48 AO 55 AO BA AO 6DF8- C3 E8 El EE E7 E5 F2 AO 
6D00- 00 40 A0 48 AO 55 AC BA 6D80- C4 ES FO EC El E3 ES ED 6E00- E4 E5 AO DO El E7 E5 AO 
6D08- AO C4 ES FO EC El E3 E5 6D88- ES EE F4 F3 AO A8 AA B1 6E08- AO A0 AO AO AO AO AO A0 
6D10- ED E5 EE F4 F3 AO F3 F5 6D90- RO A9 AO AO AO AO AO A0 6E10- AO 5F DE D3 AO BA AO D3 
6D18- F2 A0 C4 E9 F3 F1 F5 E5 6D98- AO A0 A0 00 DO EF ED ED 6E18- El F5 F6 ES F2 AO F3 F5 
6D20- F4 F4 ES AO 00 DO EF ED 6DAO- E5 AO EF F5 F6 E5 F2 F4 6E20- F2 A0 C4 E9 F3 F1 F5 ES 
6D28- ED ES AO E6 E5 F2 ED E5 6DA8- E5 AO BC AD AO AD BE AO 6E28- F4 F4 ES AO 5F AO AO 5A 
6D30- E5 AO BC AD AO AD BE AO 68B0- BA AO C4 E5 FO EC AE AO 6E30- 8D AO C2 CC CF C3 CB BA 
6D38- BA AO E0 EQ0 AO F3 F5 F2 6DB8- F8 AO B1 BO AO AO AO 00 6E38- AO AO AO AO AO A8 A4 AO 
6D40- AO C4 E9 F3 F1 F5 ES A0 6DCO- 5F DE C3 AO BA AO C3 E8 6E40- AO AO A9 AO AO C4 D2 C9 
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R.S.P.D.: Utilitaire de Lecture et d'Ecriture sur disks Pro00S par Marc ROGL ]ANO 
Entrer caracteres 


Commandes : 


Quitter) 


BLOCK : 


MC: 
& < > : Deplacements (#10) 


<$002 } 


CAT dE 


ESPACE : 


Changer de Page 


DRIVE: EL/2 eCTET: $113 


00>»#1<00 


Deplacements sur l'ecran 
Deplacements sur Disquette 


‘A : 
: Entrer un Block 

: Changer de Lecteur 

: Sauver sur Disquette 
ENCETS 


*B 
°C 
*s 








BOUCLE CLC BIT SPKR 

LDA #580 TAY 

ADC LB SOUND4 DEY 

STA LB BNE  SOUND4 

LDA #500 SBC #501 

ADC HB BEQ SOUNDI 

STA HE BIT SPKR 

DEX DEX 

BNE BOUCLE BNE  SOUND2 
END RTS RTS 
RARRRRRRRRERRE RRRRRRRRRRRRRRÉRRÉRRRRR 
RS Li MR ee - - IS OC NE LXCa 
2, -SOUND:.#* ER IST ROUTIÉA COUT EX 
ETS A REA) PTT TE RS Ca On ** 
RRARRARRRARR RRRARRRRARRRARRRRRARRR 
SOUND LDX 4#4$FF STROUT40 STA LE. 
SOUNDI LDA #$558 STY HB. 
SOUND2 LDY #f$1B LDY #$00 
SOUND3 DEY STR.40 TYA 

BNE  SOUND3 PHA 
6E48- D6 C5 BA A0 31 AF B2 A0 6EC8- 69 73 71 75 65 74 74 65 
6E50- A0 CF C3 D4 C5 D4 BA A0 6EDO- BC BC BC A0 5F 8D 00 SA 
6E58- A4 AO A0 A0 A0 AO A0 A0 6ED8- AO AO AO A0 AO C1 DO DO 
6E60- AO A0 5F DE D8 A0 BA A0 6EE0- D5 D9 C5 DA AO D3 DS D2 
6E68- D3 F7 E9 F4 E3 EB\ ES F2 6EE8- A0 00 4D AO AO A0 A0 A0 
GE7O=FAOMCSNEINF RENE FANES 6EFO- A0 SF 8D 00 D2 C5 D4 D5 
6E78- F2 E5 F3 AO A0 5F A0 A0 6EF8- D2 CE A0 5F 8D 00 AO 4C 
6E80- 5A 8D 00 AO DF DF DF DF 6F00- 4C 4C 4C 4C 4C 4C 4C 4C 
6E88- DF DF DF DF DF DF DF DF 6F08- 4C 4C 4C 4C 4C 4C 4C 4C 
6E90- DF DF DF DF DF DF DF DF 6F10- 4C 4C 4C 4C 4C 4C 4C A0 
6E98- DF DF DF DF AO 8D 00 5A 6F18- 00 C9 CC A0 C6 Ci DS D4 
6EAO0- AO AO A0 AO AO AO AO A0 6F20- AO DS CE CS AO C3 C1 D2 
6EA8- AO AO AO AO AO AO AO A0 6F28- D4 CS AO B8 BO AO C3 CF 
6EBO- AO AO A0 AO AO A0 AO A0 6F30-"CCNCENCEN CE CS D3 00 BF 
6EB8- 5F 8D 00 SA AO BE BE BE 6F38- 19 04 00 00 00 00 00 00 
GECO=N05M7 207265 ISAT72" 2003 6F40- 00 00 00 00 00 


Switcher Caracteres 


: ..C'ME.F.XR&PROO 
: OS Fe 


>H 


5 1. sEt-RS.P. 
: D.SOURCE. 0; . >..P 
ol 


B. 


: -R.S.P.D.OBJET.. 
: Fd.l.EO.T, 
*.!.B.NSTARTUP. 


STR.40. 


COUT.40 


RET40 


STROUT80 


STR.80 


STR.80. 


COUT. 80 





(LB.),Y 
STR.40. 


COUT. 40 


STR.40 
#$8D 
RET40 
CAR 
COL.LIG 
COL 

COL 


LIG 
#$01 
COL 


LB. 
HB. 
#$00 


(LB.),Y 
STR.80. 


COUT. 80 


STR.80 
#458D 
RET80 
CAR 
COL.LIG 
COL 
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20 


RET80 


RTS 


LLLELLLLLILLLLILL:, 


PRES. 0 DS 
DS 
DS 
DFB 
DS 
DFB 
DS 
DFB 
DS 
DFB 
DS 
ASC 
DS 
DFB 

PRES-1 DS 
DFB 
DS 
DS 
DS 
DFB 
DS 
DFB 
ASC 


DFB 
DS 
DFB 
DS 
DFB 
PRES. 2 DS 
DFB 
ASC 


DFB 
DS 

DFB 
ASC 


PRES:3, DS 


4, $8D 

8," L 
25/78 

$S8D 

7,an 

S5A 

23,727 

$5F, $8D 

7, TAN 

$5A 

GT 
TRAS AP DT 
Ch LLA 

$5F, $8D, $00 
77 lue ee 

$5A 

Cr Wa 

CE 

Ce 

$5F, $8D 
7,7 ® 

S5A 

“” (Read & Save Pro 
Dos) ” 

S5F, $8D 
7,9 ® 

$S5A 

25/08 

$5F, S8D, $00 
La LA 

S5A 

" Utilitaire de Le 
cture ” 
$5F, $8D 

Fe deal 

S5A 

7 et d'ecriture di 
recte ” 
$5F, $8D 
ed 

$5A 

” sur Disquettes P 
roDOS "” 
$5F,$8D 
Paru 

S5A 

23,108 

$5F, $8D, 500 
7 

$5A 

0 par Marc ROGLI 
ANO ” 
$5F, $8D 
7,7 


$5A 


PRES. 4.1 


PRES. 4,2 


aAA0 


A4A0.1 


AAA0.2 


AAA1 


AAA1.1 


A4A1.2 


AAA2 


A2AA2.1 


A442.2 


DS 
DFB 
DS 
DS 
DS 
DS 
ASC 
DFB 
DFB 
DS 
DS 
DFB 
ASC 
DFB 
DS 
DS 
DFB 
ASC 


25, 

$5F,S$8D 

9,787 

23,$4C 

4, $8D 

ds? nn « 

"Appuyez sur ” 

$00 

$4D, $AO, $4E, $8D 
70; "ue 

13, $4C 

$8D,$00 

"RETURN " 

$20,$8D 

LOS" 

18, $4C 

$8D, $00 

FRS PA D: MUETlIta 
ire de Lecture et 
d'Ecriture sur dis 
ks ProDOS par Marc 
ROGLIANO" 

$8D 

" Commandes:" 
$5A,$A0,$00 

S48, SAO, $55, $A0 
$4B, $AO, $4A, $00 
"fleches” 

$00 

” : Deplacements s 
Ur l'ecran " 

"55 
AS: 
teres” 
4, ELU 
$5F, $8D 

2 

9, $4C 

$A0, $5A, $A0, $00 
$40, $A0, $48 
$A0,$55 

” : Deplacements s 
ur Disquette " 

$00 

"Pomme fermee <- - 
> : !\ sur Disque 
$00 
$5F 
reB 
ack" 
6 

$5F, $ A0 
$SAO,$51, $8D 

. {ESC: V2 
$5A, $A0, $00 

$41, $A0 

$48, $A0, $55 

* : Deplacements { 
*10) ” 


Entrer carac 


+: Entrer un B1 


gran 

$00 

"Pomme ouverte <- 
> ; Depl. x 10 


AAA3 


ERROR. 0 


ERROR. 1 


ERROR. 2 


ERROR. 3 


ERROR 4.1 


ERROR 4.2 


ERROR.5 


MESSERR 


SAVE 
TABLE 
TABLE] 


mrC : Changer de L 
ecteur"” 

SJ ou 

$5F, $A0, $ A0 

$S5A, $8D 

dé Quitter) " 

$5A 


" ESPACE : Change 
r de Page” 

10,7 ® 

$SE 

"°S : Sauver sur D 


isquette ” 

$5F, $A0, SAO, $S5A, 
$8D 
CABLOCK:E 
D LUE 
US) 
$31 
Le 
gs » 
$5F 
"SX : Switcher Car 
acteres " 

$5F, $A0, SAO 

$5A, $8D, $00 

24,77 


DRIVE SM 


COCTET: 52" 


$8D,$00 

$5A 

24, 1ur 

$5F, $8D, $00 
$5A, $AO 

">>>" 

$05, 572, 572,565 
S75,$72, $20, 504 
$69, $73, 571, $75 
$65, 574, 574, $65 
MC 

SA0, $5F, $8D, $00 
$5A 

GS, a 

"APPUYEZ SUR " 
$00 

$4D 

6, nn" 
$5F,$8D,$00 
"RETURN ”" 
$5F,$8D, $00 


24,$54C 

LUE 

#00 

"IL FAUT UNE CARTE 
80 COLONNES" 

$00 

$BF,$19, $04 

4 

7 


* 
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Roland Jost 


oici un programme qui 

permet de manipuler des 

images graphiques en 

donnant des effets de 
miroir. il est aussi le prétexte à 
une étude de l'organisation des 
pages graphiques de Apple. Il 
permet aussi d'illustrer le diffici e 
compromis entre gain de temps et 
gain de place. 


La page graphique 
de l'Apple 


La haute résolution de l'Apple est 
de 280 x 192 = 53760 points. Or 
une page HGR ne mobilise que 
8192 octets. Ceci est obtenu en 
stockant l'état de 7 points 
consécutifs d'une ligne dans les 
bits 0 à 6 d'un octet, le bit 7 
contenant le mode couleur. On 
réduit ainsi de 8 fois la taille 
mémoire nécessaire pour la page 
graphique. L'inconvénient est que 
cela ne facilite pas l'adressage 
point par point. Le problème 
serait assez simple à résoudre, 
mais l'écran HGR est divisé en 3 
zones de 8 groupes de 8 lignes. 
En mémoire, les 192 lignes de 40 
octets ne se suivent donc pas de 
facon séquentielle (cf les adresses 
des lignes dans POM'S n°1). Ces 
adresses peuvent se calculer, par 
exemple par la formule utilisée 
dans Édigraph (POM'S n°21). 

Mais même en assembleur, ce 
calcul prend du temps, surtout s'il 
doit être répété de nombreuses 
fois. Une méthode plus rapide, 
utilisée dans de nombreux jeux est 
l'utilisation d'une table 
d'adresses, en fait de deux tables, 
la première contenant l'octet bas, 
la seconde l'octet haut. Cette 
méthode a l'inconvénient de 
prendre beaücoup de place (384 
octets). On peut trouver un 
compromis entre ces deux 
méthodes en utilisant la régularité 
de la table pour huit lignes 
successives. La table est alors huit 
fois moins importante (seulement 
48 octets). Il faudrait également 


une table des octets hauts 
différente pour la page HGR et 
pour la page HGR2. Une table 
unique suffit, à condition de 
rajouter la valeur contenue dans 
$E6 ($20 pour la page HGR, $40 
pour la page HGR2). JANUS 
sera donc actif sur la page en 
cours, sans qu'il soit nécessaire 
de spécifier son numéro. Au prix 
d'un léger ralentissement du 
programme (environ un centième 
de seconde), on parvient donc à 
réduire l'encombrement de la table 
des adresses de 476 octets à 
seulement 48 octets. 


Miroirs 


Obtenir l'image dans un miroir 
d'une page graphique est facile 


# 
$ 


quand on a calculé les adresses 
des lignes. 


Pour un miroir horizontal, il suffit 
de permuter la première ligne avec 
la dernière, la deuxième avec 
l'avant-dernière, etc. 


Pour un miroir vertical, le 
principe est de permuter la 
colonne 0 (192 octets) avec la 
colonne 39, la colonne 1 avec la 
colonne 38, etc. Mais il faut de 
plus prendre l'image dans un 
miroir des bits O à 6 de chaque 
octet sans toucher au bit 7, 
c'est-à-dire passer par exemple de 
01101000 à 00001011. 


Là encore ce travail peut être 
effectué soit par un sous- 
programme comme celui qui est 


Saisir puis sauvegarder la récapitulation JANUSr. 
Dans un programme Basic, il faut, pour bénéficier des effets de 
miroirs, charger la routine par BLOAD JANUS {se reporter au 
programme de démonstration). 


Les possibilités de la routine sont les suivantes : 


36864,H,0 Retoumement honzontal 

36864,V,0 gauche <=> droite 

36864,H,1 Moitié supérieure réfléchie dans moitié inférieure 
36864,v,1 Moitié gauche réfléchie dans moitié droite 


De plus, on dispose des combinaisons suivantes : 


36864,H,0 


CALL 36864,H,1 


Moitié gauche dans partie droite 


36864,V,0 


CALL 36864,H,0 


Rotation 180", combinaison des 2 symétries 
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Ayez sur votre disquette une image HGR nommée “IMAGE” 


22 


présenté ci-dessous, soit à l'aide 
d'une table. 


ROLL STA $08  ; sauve l'octet à 


inverser 

ROL À ; de bit 7 est mis 
dans l'a retenue 

ROL À ; décale À à gauche et 


retenue dans bit 0 
IDY #$07 ; il faut le faire 7 


fois 
ROLLI LSR $08 ; de bit 0 est mis 

dans la retenue 

ROL À ; retenue dans bit O 
et décale à gauche 

DEY 

BNE ROLL1 

RIS 


Avec la première solution 
l'inversion se fait en plus d'une 
seconde ; avec la seconde le 
programme va trois fois plus vite. 
Ceci s'explique facilement par le 
fait que chacun des octets doit être 
permuté, soit 8192 permutations. 
Le moindre gain de vitesse à ce 
niveau est donc plus 
qu'appréciable. C'est pourquoi 
nous choisirons cette dernière 
méthode. 


JANUS permet encore d'obtenir 
dans la moitié inférieure de 
l'écran, le reflet de la partie 
supérieure. De même pour les 
parties gauche et droite. Il s'agit 
dans les deux cas d'arrêter la 
recopie au milieu de l'écran. 


Récapitulation ‘“JANUS' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par BSAVE JANUS, AS$9000, L$200 


9000- 20 BE DE 85 EF 20 B1 00 9100- 00 40 20 60 10 50 30 70 
9008- 20 F5 E6 86 1E A2 00 86 9108- 08 48 28 68 18 58 38 78 
9010- EB 86 ED A2 27 86 EC A2 9110- 04 44 24 64 14 54 34 74 
9018- BF 86 EE AS EF C9 48 FO GAAB=NOC IC N2CMECPICN SC CU 7C 
9020 05\C 9 56" FON3E 60MNE6 EC 9120-02 42/2729 62 12 5 2MIF2N72 
9028- A6 ED 86 06 A6 EE 86 07 9128- OA 4A 2A 6A 1A SA 3A 7A 
9030- A6 06 20 AD 90 85 18 84 9130- 06 46 26 66 16 56 36 76 
9038- 19 A6 07 20 AD 90 85 1A 9198 00E 1E 2EN6 EN TENSELSENTE 
9040- 84 1B A4 EB B1l 18 A6 1E 9110 01 41 21 6101057 831171 
9048- DO 06 48 BI 1A 91 18 68 9148= 09N 49 2,9) 69019) 597,39 79 
9050- 91 IA C8 C4 EC DO ED E6 9USONOS A5 25,65) 15 55035 75 
9058- 06 C6 07 38 AS 07 ES 06 9158- OD 4D 2D 6D 1D 5D 3D 7D 
9060- BD CE 60 E6 EE A6 ED 20 MED 03 3023, 63PT3ÈSIT 375 
9068- AD 90 85 18 84 19 A4 EB 9168- OB 4B 2B 6B 1B 5B 3B 7B 
9070- 84 06 A4 EC 84 07 A4 06 OUAO NON 7/7N6T7PLTE SUNSET 
9078- Bi 18 A8 B9 00 91 A4 1E QUE MOPNIEN 2 EN GENTEN S'ENSENCT7T 
9080- DO OC 48 A4 07 B1l 18 A8 9180- 80 CO A0 EO 90 DO BC FO 
9088- B9 00 91 85 1C 68 A4 07 9188- 88 C8 A8 E8 98 D8 B8 F8 
9090- 91 18 A4 1E DO 06 AS 1C 9190- 84 C4 A4 E4 94 D4 B4 F4 
9098- A4 06 91 18 E6 06 C6 07 919 8=V8E CC" ACNEC IC DC"BC FC 
90A0- 38 AS 07 ES 06 BO CF E8 SHAOS (82/C2 ADN E2M02 (D? B2,F2 
90A8- E4 EE DO BB 60 8A 4A 4A 91A8- 8A CA AA EA 9A DA BA FA 
90B0- 4A A8 B9 C4 90 48 8A 29 91B0- 86 C6 A6 E6 96 D6 B6 F6 
90B8- 07 OA OA 18 79 DC 90 65 91B8- 8E CE AE EE 9E DE BE FE 
90C0- E6 A8 68 60 00 80 00 80 91CO-=M9IN CIN AT /ET 91 DIET FI 
90C8- 00 80 00 80 28 A8 28 A8 91C8- 99LC9 AGE 999 DA B9NF'9 
90D0- 28 A8 28 A8 50 DO 50 DO 9IDO= "ES CS ASVES, 95 D5SVESVES 
90D8- 50 DO 50 DO 00 00 O1 01 91D8- 8D CD AD ED 9D DD BD FD 
90E0- 02 02 03 03 00 00 O1 01 OPECENBINCIV ASC EI IN DI"ETNFS 
90E8- 02 02 03 03 00 00 O1 01 91E8- 8B CB AB EB 9B DB BB FB 
90F0- 02 02 03 03 00 00 00 00 9IHO0=NOVACINAIVE } J7NDiINB IN ET 
90F8- 00 00 00 00 00 00 00 00 Q1FE=ENE FACE AE ERMONSDERBENFIE 





Programme 
‘JANUS.DEMO’ 


10 REM DEMO.JANUS 

12 REM R.JOST 1985 

15 PRINT CHR$ {4} °BLOAD JANUS”" 
20 TEXT : HOME 

30 À = 36864 

40 NS = "IMAGE 

50 HGR : POKE - 16302,0 
60 GOSUB 600 

65 GOSUB 500 

70 CALL A,#,0: GOSUB 500 
80 CALL A,H,0: GOSUB 500 
90 CALL A,V,0: GOSUB 500 
100 CALL À,V,0: GOSUB 500 
110 CALL À,V,l: GOSUB 500 
120 GOSUB 600 

124 CALL A,H,0: CALL À,H,1 
126 GOSUB 500: GOSUB 600 
130 CALL A,V,0: GOSUB 500 
140 CALL A,V,1: GOSUB 500 
144 CALL ÀA,H,0: CALL À,H,1 
146 GOSUB 500 

150 GOSUB 600 


170 GOSUB 500 


180 TEXT : END 10 * REFLET D'UNE PAGE &GR 


500 FOR T = 1 TO 2000: NEXT :2Z = 11 * 
PEEK ( — 16336) + PEEK ( - 163 12 * Syntaxe : CALL 36864, MODE, OPT 
36): RETURN de 
600 PRINT CURS (4)"BLoaD "nsr,asz 1 * MODE-W:MIROIR HORIZONTAL 
000": RETURN 15 =V:MIROIR VERTICAL 
16 *OPTION-0:IMAGE DE TOUT L'ECRAN 
7 / =1:MOITIE ECRAN REFLECAI 


E DANS L'AUTRE 
18 *SUPERIEURE —-> INFERIEURE 
19 *GAUCHE -> DROITE 





PRE 
Source 2 AARARARARAARRÉRRRÉRRRRRRRRÉR AAA AAA 
5 
JANUS.S 26 
Assembleur MERLIN 24 21 EQU $06 
25 22 EQU $07 
1 RRARARARAAAAAAAAAAAAAAARRRRRRÉ 26 DEPART EQU $18 
ST RE 5 27 ARRIVEE EQU SIA 
LES JANUS a 28 TAMPON EQU S$S1C 
4 * * 29 OPTION EQU SIE 
LD] RRRRÉRRRRÉRRRRRARÉRRÉRRRÉRÉRRÉRÉRARAÉ 30! PAGE EQU SE6 
6 * SUEXT EQU $EB 
7 * R.VOST 32 Xx2 EQU $EC 
8 * Assembleur MERLIN 330r1 EQU $SED 
9 * 34 Y2 EQU $EE 
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35 MODE ECC S$SEF 


37 CHRGET EQU $00B1 
38 CHKCOM EQU S$DEBE 
39 GETBYIC EQU S$SE6FS 



















40 * 

41 * 

42 ORG $9000 

43 * 

44 * 

45 * SAISIE DES PARAMETRES 

46 * 

47 JSR  CHKCOM 

48 STA MODE 

49 JSR CHRGET 

50 JSR GETBYTC 

Si STX OPTION 

52 LDX #0 

53 STX X1 

54 STAY 

55 LDX #39 

56 STX  X2 

S7 LDX #191 

58 STXY2 

59 LDA MODE 

60 CMP 4548 

61 BEQ Il 

62 CMP #$56 

63 B#ER 12 

64 RTS 

65 * 

66 * MIROIR HORIZONTAL 

67 * 

68 Il INC X2 

69 HDX CI 

70 STX 0271 

71 LDX  Y2 

72 STX 22 109 DEPART 

73 BOUI LDX 71 110 STY DEPART+#] 147 * Calcul l'adresse d'une ligne 

74 JSR CALCADR 111 148 * 

75 STA DEPART 112 LOY X1 149 CALCADR TXA 

76 STY DEPART+1 143 ST 71 150 LSR 

77 114 LDY X2 151 LSR 

78 IDX 22 115 STY 22 152 LSR 

79 JSR CALCADR 116 BO2 IDY £1 155 TAY 

80 STA ARRIVEE 117 LDA (DEPART),Y 154 LDA TABIL,Y 

81 STY ARRIVEE+I 118 TAY 155 PHA 

82 119 LDA  PERMUT, Y 156 TXA 

83 IDY xX1 120 LDY OPTION 257 AND ##00000111 

84 BOU2 LDA (DEPART), Y 12i BNE SUIT2 158 ASL 

85 * 122 PHA 159 ASL 

86 LDX OPTION 123 IDY 22 160 CLC 

87 BNE SUITI 124 LDA {DEPART}, X 161 ADC TABIH,Y 

88 PHA 125 TAY 162 ADC PAGE 

89 LDA  {ARRIVEE), 126 LDA PERMUT,Y 163 TAY 

90 STA  {DEPART), Y 127 STA TAMPON 164 PLA 

91 PLA 128 PLA 165 RTS 

92 SUITI STA  {ARRIVEE), Y 129 SUIT2 LDY 22 166 * 

93 INY 130 STA {DEPART}, Y 167 * TABLES DES ADRESSES HGR 

94 CPU X2 131 LDY OPTION 168 * OCTET BAS 

95 BNE BOU2 132 BNE SUIT3 169 * 

96 INC 21 132 LDA TAMPON 170 TABIL DFB $00,S80, 500, $80,S$ 

97 DEC 22 134 LDY 21 00,580, S00, $80 

98 SEC 135 STA {DEPART}, Y 171 DFB $28, SA8, $28, SAB, $ 

99 LDA 22 136 SUIT3 INC 21 28, SAB, 528, SAB 
100 SBC 21 137 DEC 22 172 DFB $50, SDO, $50, SDO, $ 
101 BCS BOUI 138 SEC 50, $D0, $50, $DO 
102 RTS 138 LDA 22 17908 
103 * 140 SEC Z1 174 * TABLES DES ADRESSES HGR 
104 * MIROIR VERTICAL 141 BCS BO2 175 # OCTET HAUT 
105 * 142 INX 176 * RAJOUTER $20 POUR PAGE 1 
106 I2 INC Y2 143 CPX Y2 177 * OU $40 POUR PAGE 2 
07 LDX Y1 144 BNE BOI 178 * 
108 BO1 JSR  CALCADR 145 RTS 179 TABIK DFB $00, $00, 501, $01,S 


Pom's n° 25 25 


* 


DFE 


DFB 


02, $02, $03, $03 
$00,$00,S$01,$01,5S 
02, $02, $03, $03 
$00, $00, SOI, S01,S$ 
02, $02, $03, S03 


* TABLE D'INVERSION 


DS 
DFB 


DFB 


DFB 


DFE 


DFE 


DFB 


DF8 


DFB 


DFB 


DFB 


DFB 


DFB 


DFE 


DFB 


DF8 


DFE 


DFE 


DFE 


DFB 


DFB 


DFB 


DFB 


DF8 


DFB 


DFB 


DFE 


DFE 


DFB 


DF8 


DFB 


DFB 


DFE 


S9100-* 
$00,$40, $20, $60,S 
10,550, 530, 570 
S08, 548, S28, 568, S 
18,558, 538,578 
S04,544,524,564,S 
14, 554, 534,574 
$0C, S4C, S2C, S6C, S 
16,/$5C, 590, S7C 
S02, $42, S22,562,5S 
12, 552, S927572 
$0A, $4A, S2A, S6A, S 
IA, $5A, S3A, 57A 
506, 546,526, $66, 5 
16,556,536,576 
S0E, $4E, S2E, $S6E, $ 
1E, $5E, 53E, $7E 


$01,$41,521,5$61,S$S : 


11,551, 531, 571 
$09, 549, 529, 569,5 
19, S$59, $39, $79 
$05, $45, $25, 565,5 
15,555,$35,S75 
SOD, S4D, S2D, S6D, $ 
1D, $5D, S3D, S7D 
$03, 543,523, 563, 5S 
13, 853, 533, $73 
$0B, $4B, S2B, 56B, $ 
15, 558, 53B, $7B 
$07,547,527,567,S 
17,557,537, $77 
$0F,$4F, S2F, S6F, S 
1F,S5F,S3F,S7F 


$80, $CO, SAO, SEO, S 
90, SDO, $80, SFO 
S88, $CB, SAB, SEB, S 
98, SDB, SBB, SF8 
S84,5C4, SA4, SE4, 5 
94, SD4, SB4, SF4 
S8C, SCC, SAC, SEC, $ 
9C, SDC, SBC, SFC 
$82,S$C2, SA2, SE2, S 
92, SD2, SB2,SF2 
SBA,SCA,SAA,SEA,S 
9A, SDA, SBA, SFA 
S86, $C6, SA6, SE6, S 
96, SD6, SB6,SF6 
$S8E, SCE, SAE, SEE, S 
9E,SDE,SBE, SFE 
$81,5C1,SA1,SE1,S 
91, SD1, SB1, SF1 
$89, $C9, SA9, SE9, S 
99, SD9, SB9, SF9 
S85,SC5, SAS, $E5, S 
95, SD5, $B5,SF5 
$8D, SCD, SAD, SED, $ 
9D, SDD, SBD,SE'D 
$83, SC3, SA3, SE3,S 
93, SD3, SB3, SEF3 
$8B, $CB, SAB, SEB, S 
9B, SDB, SBB, $FB 
S87,SC7,SA7, SE7,5$ 
97,SD7, SB7, SF? 
S8F,SCF, SAF, SEF, $ 
9£, SDF, SBF,SFF 





Inhiber le Reset 
en ProDOS 


Bruno Fénart 


La méthode pour inhiber le CTRL-RESET est bien connue en DOS 
3.3 (voir “clef pour l'Apple //e” de N. Bréaud-Pouliquen aux 
Éditions du PSI, ou “All About Dos” de Call-Apple). En ProDOS, 
c'est plus compliqué car il faut revectoriser soi-même les vecteurs 
d'entrée/sortie. 


Quelle que soit la solution retenue, la routine de revectorisation devra 
réinitialiser la pile pour éviter le ‘Out Of Memory Error’ après 
quelques RESETSs. La routine suivante pourrait être adoptée : 


3F2:00 03 A6 ;Revectorisation du reset 
300:A2 03 LDX #$03 

302:BD 34 BE LDA SBE34,X vecteurs d'E/S ProDOS 
305:95 36 STAMMS 367 X ;vecteurs d'E/S 

307:CA DEX 

308:10 F8 BPL $302 

30A:A2 FF LDX #SFF ;Réinitialise la pile 
30C:9A TXS 

30D;:20 98 D8 JSR $D898 ; CONT 

DLO CRD 2ED;7 UMP  S$SD7D2 ;NEWSTART 


Cette solution peut entraîner des erreurs et elle n'est pas utilisable si 
l'affichage du programme est en 80 colonnes. C'est pourquoi on peut 
avoir intérêt à utiliser une autre solution qui consisterait non pas à 
retourner à la ligne où a eu lieu le CTRL-RESET, mais comme pour 
un traitement d'erreur, à effectuer un branchement vers une ligne 
donnée (ici vers la ligne 20). Si cette ligne n'existe pas on obtient 
"?UNDEFD STATEMENT ERROR" comme pour un GOTO sur 
une ligne non définie : 


300:A2 03 LDX #$03 

302:BD 34 BE LDA S$SBE34,X ;vecteurs d'E/S PreDOS 
305:95 36 STAMMSSEX ; vecteurs d'E/S 
307:CA DEX 

308:10 F8 BPL $302 

30A:A2 FF LDX #SFF /Réinitialise la pile 
30C:9A TXS 

30D:À9 14 IDA #$14 ;Ligne n°20 

30F:85 50 STA S50 ;LINNUM 

311:A9 O0 LDA #$00 

Re Sie) STA S$51 #LINNUM+1 

315:20 41 D9 JSR $SD941 ; GOTO+3 

SA 8:4CLD2ND;7 UMP  $D7D2 ; NEWSTART 


Le programme Basic devra alors avoir la forme suivante : 


10 GOTO 1000 

20 GOTO 1500 

1000 REM Début du programme 

1500 REM Prise en charge après le ctrl-reset 


G 
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Claude 


‘COMPDISK’ 





Vivier 


ou ‘sont-elles vraies jumelles ?° 


Qui d'entre nous n'a jamais eu 
entreles mains des versions 
“peut-être” identiques d'un jeu ou 
d'un quelconque logiciel situé sur 
des disquettes non structurées en 
fichiers et/ou protégées. Dans 
cette situation -pas quotidienne il 
est vrai- il est naturel de chercher 
à comparer de telles disquettes. 
Mais, si les programmes de 
comparaison de fichiers ne 
manquent pas sur le marché, on 
ne peut en dire autant des 
comparateurs de disquettes vues 
globalement. Une solution 
consiste à utiliser le programme 
"Zap" du Bag of Tricks en 
construisant une grosse macro- 
commande, encore faut-il que les 
disquettes se laissent faire !... 


Voici donc un programme en 
assembleur qui permet de 
comparer toutes les disquettes 
seize secteurs de format standard 
ou légèrement “hors-normes”. 


Le principe 


Il a paru intéressant de travailler 
au niveau de la piste complète 
transférée en mémoire plutôt que 
d'accéder au disque secteur par 
secteur. Bien sûr, en dernier 
ressort il faut arriver à la notion 
de secteur mais, d'une part, il y a 
gain de temps du fait du nombre 
limité d'accès disques, et ensuite 
nous sommes moins tributaires 
des gadgets des protecteurs de 
logiciels, les contrôles ayant été 
volontairement limités au strict 
nécessaire. Il n'est fait aucune 
référence à la notion de fichier. 


Utilisation 


Le programme doit être situé sur 
une disquette DOS 3.3 ou 
apparentée et nécessite deux 
lecteurs, L'affichage 80 colonnes 
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et les minuscules ont été écartés 
de façon à s'adapter à toutes les 
configurations. 


I] se lance par : 
BRUN COMPDISK. 


Un premier écran demande 


+ d'installer les deux disquettes 
sur les deux lecteurs ; 
+ d'indiquer le type des 
disquettes testées (Dos, Pascal, 
Prodos, CP/M, ou Inconnu si on 
l'ignore) au moyen d'un chiffre 
de 1 à 4 ; ceci afin de pouvoir 
afficher un numéro de secteur 
correct en cas de différences. 


Il faut rappeler, en effet, que pour 
chaque système d'exploitation il 
existe une table de corrélation 
entre le numéro de secteur 
physique (celui qui est écrit sur le 
disque) et le numéro de secteur 
logique (celui par lequel 
l'utilisateur accède à ce secteur). 
Si l'on a entré l'option 4 (système 
inconnu), c'est le numéro de 
secteur physique qui sera affiché, 
bien entendu. 


Après avoir saisi et 
sauvegardé la 
récapitularion 
COMPDISK, sur une 
disquette DOS 3.3, pour 
comparer deux 
disqueites, faire : 

BRUN COMPDISK 


Comment faire ? 


puis indiquer le type de DOS 


s’il est connu. Valider alors 
par ESC ou RETURN 

selon que la disquette est 
protégée ou non. Dans le 
premier cas, vous devrez 
indiquer le prologue obtenu 
à l'aide d'un utilitaire du 
type TRAX. Le défilement 
des secteurs qui dffèrent est 
contrôlé par ESPACE. 





Le programme demande ensuite 
s'il s'agit d'une disquette normale 
(en gros, copiable par COPYA) 
ou “protégée”. Dans le premier 
cas, <Returm> fait partir la 
comparaison. Dans le deuxième 
cas, <ESC> amène un deuxième 
écran qui explique que les 
disques standard sont formatés 
avec, pour chaque secteur le 
prologue d'adresse DSAA96, et 
le prologue de Data DSAAAD 
(dans le programme, le nibble AD 
n'est pas exigé). Certaines 
disquettes protégées répondent à 
ce schéma, d'autres non. Il existe 
plusieurs programmes qui 
montrent ces prologues (le Trax 
du Bag of Tricks par exemple). 


Il est alors demandé ou bien de 
frapper <Retum> pour accepter 
les prologues proposés, ou bien 
de saisir les prologues des 
disques à comparer. Finalement 
un <Retum> de confirmation fera 
partir le programme. 


La progression du programme est 
suivie par affichage des pistes 
testées, et, en cas de différence, 
des numéros de secteur, de la 
première position différente dans 
le secteur, et pour les disquettes 
Prodos, Pascal et CP/M le 
numéro de bloc et de partie de 
bloc. En fin de parcours, on 
pourra comparer un autre couple 
de disques, sans recharger le 
programme. 


Analyse du 
programme 


Lignes 103-225 


+ Patch du programme pour 
valeurs standard des prologues. 

+ Affichage des choix. 

+ Saisie des paramètres (système 
et nibbles de reconnaissance). 

+ Patch du programme avec ces 
différents paramètres. 
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Lignes 226-250 


* calage du bras de lecteur 2 sur 
la piste O (routine de la PROM du 
contrôleur) ; opération indispen- 
sable pour éviter de gros déboires 
dans la recherche des pistes. 


Lignes 253-307 

+ boucle générale de traitement. 
Chaque couple de pistes de O à 34 
est transféré en mémoire ($2000 
pour I et $4000 pour I!) pour être 
comparé. A la fin, retour possible 
au début ou sortie vers le 
warmstart du Dos. 

Lignes 311-371 

* routine de Dump mémoire 
d'une piste. 

* Alimentation de la “parameter 
list” qui contrôle la procédure 


RWTS" onmet D'dans_le 
paramètre de “commande” 
(Search) 


* Appel à RWTS, qui amène le 
bras du lecteur sur la piste choisie 
sans manipuler encore 
d'informations. Pour cette étape, 
il n'y a pas eu de référence au 
numéro de piste codé dans le 
champ d'adresse des secteurs de 
cette piste (code fréquemment 
altéré sur les disques protégés). 

+ Lecture des nibbles de la piste 
vers la mémoire. À noter que les 
instructions 362-369 sont très 
critiques. Pour qu'il n'y ait pas 
de perte d'information, un petit 
calcul montre que le délai entre 
deux lectures de nibbles ne doit 
pas excéder 31 microsecondes, 
on y arrive tout juste. L'ensemble 
de cette routine de dump est 
valable pour les 2 pistes I et II. 
$2000 nibbles sont ainsi 
transférés, soit très largement une 
fois la piste. 


Lignes 375-423 


+ Boucle générale de compa- 
raison des 16 secteurs de la piste. 
* Recherche du premier secteur 
disponible de la piste ], 
normalement annoncé par 
DSAA96, avec sauvegarde, en 
passant, des nibbles donnant le 
numéro de secteur (physique, 
bien sûr). 


+ Recherche du secteur 


homologue sur piste IT (voir plus 
loin). 

+ Comparaison des 2 secteurs 
(voir plus loin). 





+ On continue sur le secteur 
suivant de la piste Ï jusqu'au 
16ème. À chaque fois que l'on 
explore la piste II à la recherche 
du secteur frère, on repart 
toujours du début de la piste, 
alors qu'on serait tenté, une fois 
qu'un couple de secteurs est 
accroché”, de poursuivre 
l'exploration séquentiellement sur 
les 2 pistes, quitte à dumper au 
moins 2 fois la piste Il. Ce choix 
a été fait afin d'éviter de déclarer 
différentes des disquettes 
formatées avec des "entrela- 
cements” différents, alors 
qu'elles sont identiques quant au 
contenu. Certains copieurs ne 
respectent pas l'entrelacement de 
l'original (COPY A par exemple 
qui commence une Copie par un 
INIT standard). La perte de 
temps qui résulte de cette manière 
de faire est d'ailleurs tout à fait 
négligeable. 


Lignes 427-478 


° Procédure de recherche du 
secteur homologue II. Dès qu'un 
secteur est tTouvÉ, Son numéro 
est testé par rappoit au numéro 
sauvegardé du secteur I. Au 
début de cette routine, la frappe 
de n'importe quelle touche 
suspend le traitement. Si on ne 
trouve pas sur toute la piste (de 
même d'ailleurs pour la piste [), 
les nibbles de prologue, tels 
qu'ils ont été définis en début de 
programme, la piste est déclarée 
illisible et affichée comme telle 
(lignes 684 à 728). Dès que les 
pointeurs de balayage des 2 pistes 
sont en début de la partie Data du 
secteur, la comparaison peut 
commencer. On sauvegarde à ce 
moment les valeurs des pointeurs 
(lignes 474-478). 


Lignes 482-493 


* Routine de comparaison des 
342 nibbles du secteur. Dès qu'il 
y a discordance, la comparaison 
est arretée et il y a branchement 
SUT.. 


Lignes 504-656 


+ Gestion de la première 
différence trouvée sur le secteur. 
I] s'agit de trouver la position en 
cause non pas en termes de 
nibbles mais d'octets "visibles" 
tels qu'on les connait 


habituellement. I1 semble, après 
longue réflexion, que la meilleure 
solution pour avoir, à coup sûr, 
la première divergence est de 
recourir à la dénibbilisation 
classique de la routine RWTS. Le 
secteur I est complètement décodé 
en $7100 (buffer secondaire en 
$7000). (Donc si on frappe sur 
Reset en cours de traitement, un 
coup d'œil en $7100 donnera le 
dernier secteur trouvé différent 
sous forme décodée). On fait de 
même pour le secteur II en 
arrêtant la procédure dès qu'il y a 
discordance (buffers en $8100 et 
$8000). La position trouvée est 
alors mise en réserve (ligne 552). 
Ensuite vient Ja routine 
d'affichage des résultats trouvés 
(piste, secteur logique, position), 
avec, s'il s'agit de la première 
différence trouvée, affichage d'un 
en-tête de présentation (lignes 
333 457%); 


+ Un petit calcul (lignes 
612-656) donne le bloc en cause 
s'il y a lieu. Une petite remarque 
au sujet des instructions 54S et 
550 : il se peut que l'on trouve 
une différence à l'examen des 
nibbles et que celle-ci disparaisse 
après dénibbilisation. La raison 
en est que les nibbles de rang 
$54,55 ne sont que partiellement 
utilisés dans la dénibbilisation; 
ceci explique que le décodage du 
secteur est fait avant d'ameuter 
les populations. 


Lignes 660-905 


Routines diverses de sorties de 
message, saisie des prologues, 
conversion hexa, patches etc. 


Performances 


Durée du traitement : 

Deux disquettes identiques : 2 mn 
05 s 

Disquettes complètement diffé- 
rentes : 2 mn 205 

Temps consacré à la recherche 
des pistes : 1 mn 305 


Attention : Ce programme ne 
fonctionnera pas ou très mal avec 
des disquettes 13 secteurs. Il faut 
se méfier de certaines disquettes 
déguisées en 16 secteurs mais qui 
en fait sont des 13 secteurs. Elles 
‘bootent' nornalement, mais dès 
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le premier étage du boot il y a 
transformation du Dos en l'autre 
format. 


Pour ceux qui en auraient encore 
douté, ce petit travail n'aurait pas 
pu etre fait sans références 
permanentes au livre de Don 


Source COMPDISK.SCE 


Assembleur LISA 2.5 

PRLELLELLLELLELELLELELELELE SELS ELLE EL ELELLLLL EL) 
Rd L 
{* PROGRAM DE COMPARAISON GLOGALE # 
d DE DISQUETTES 16 SECTEURS . 
‘* LA 
+ CI. VIVIER 2/1/86 * 
+ + 
4 LISA 2,5 #* 
PLELELELELLELLELELLLLELLELLLSSLLLELLLLLLLEL ELLE 

NOG 


+ #7 ZONES DE TRAVAIL ** 


PTR £EPz $0 


:POINTEURS POUR 

oure 

PTR2 £P8 57 ET COMPARAISON 

TRACK £EPZ $4 

DRIVS EPé $5 

SCT EPZ 56 

1 + FÊNETRES 

NND ES SPZ 52 

RPOS £Pz $24 4 CURSEUR 

VP?0S EP& $25 

CET EP£ 580 

CPTB £P£ $82 

SVAD EPS $94 :SAUV. NO SECT 

RTN EPE 536 ADR RETOUR POUR 
PRINT 

SLOT EPZ $88 

FLG EP£ 589 ZAIGUILLEUR 

SVPTR EPZ $8A +SAUV. POINTEURS 

SYST EPE $8£ ;IND. SYSTEME 

PAOLOG  EPZ 590 #PROLOG. À PATCH 
£R 

RET £EPZ $8D ASCII <RETURN> 

“ASCII <ESCAPE> 


ÊSC EPZ 598 


+ #** VECTEURS DU DOS ** 


VECPML &QU 5383 
RNTS EQU 5309 
bos ecv 53Da 


#* MEMOIRES-TAMPONS ** 


INPUT  EQ0 5200 

BUFI £QU 52000 POUR DRIVE 1! 

2BUF] £00 54000 2FIN 8UFi 

BuF2 ECU 54000 

LBUF2 EQU 56000 

BF1s EQU 57000 :BUFFERS DE 

BFiP £SQU $7100 :DENIBBILISATION 

BF2S &u 58000 

BF2P &QU 58100 

TRANSL  EQU $BAO0 : TABL .CONVERSION 
00s 


+ #** MEMOIRE-HARDWARE ** 


KBD bOU $C000 
KBOSTRB EQU $COi0 
DRVOEN  EQU SCO8A :SELECT DR 1 
DRVIEN  EQU $CO88 ; DR 2 


<MDOVERENTS DU 
;BRAS DE LECTEUR 


PHASDOFF EQU SC08G 
PHASEON EQU SCG81 
HOTORON  EQU $C089 
MOTOROFF E00 $C088 
26L EQU Scoac 
O?7L £OU sC08E 


7LÈC?T DE NIBBLE 
J'PR£&P,LECTURE 


4 #* ROUTINES MONITEUR ET APFLESOPT »v 


LINPRT +DECIMALISATION 


EOU $5D24 


PRBL2 EQU $F94A 


Worth et Pieter Lechner "Beneath 
Apple Dos”, et je ne voudrais pas 
terininer sans redire, à mon tour, 
tout le bien qu'il faut penser de 
cet ouvrage. Pour les néophytes 
curieux de savoir ce qu'il y a 
réellement sur un disque, l'étude 


TEXT EQD $rH19 
VTAB EQU $FC22 
HOME EQU $FC58 
WATT ÆQU SFCAS 


ROCRAR  DQU 5FD35 
CROUT  EQU SFD8E 
cour EQU SFDED 
PRAYTE  EQU SFDDA 
BELL EQU SFF3A 
ORG S7FD 
JMP DESUT 
PH DFS 1 ;INDEXATION DE 
LA PML 
PSLOT  DFS 1 
PDRY DFS 1 
FVOL oFs 1 
PTRR DFS 1 
PS DFS 1 
POCT oFS 2 
PAUF DFS 2 
P8D oFs 2 
PERD DFS 1 
PERR DFS ] 
PVKF DFS 1 
PSLF DFS 1 
PDRF OFS 1 


INV " DISQUES 16-SCT ‘ 


+RESET DES PROL. 


LDA #5 
STA WNDT 
JSR HOME 
OPTIONS 
JSR PRINT 


«FENETRE 


ASC "- INSTALLER LES DISQUES A COMPA 


RER" 
REX 8D8D 


ASC “- PRECISER LE SYSTEME D'EXPLOIT 


ATION" 
8D8D 


INV "2" 
ASC " -2 PASCAL ET PRODOS" 
HEX 8D8D 


TE ACFAME 


4" 
“ -> INCONNU (SECTEUR PHYSIQUES) 


HEX 8D8000 
F4 BIT KBDSTRB 
2 LDA KBD 
BPL <2 
Cæ 2580 
BCC <1 
CMP 4585 
BCS <1 
ÆOR 4580 
STA SYST 


PREMIER CHOIX 


+ SAUV. SYSTEME 


“AFFICHAGE I16RES 


du chapitre 3 est passionnante. 


N.D.LR. : il est préférable de 
faire un FP après la sortie du 


programme, voire de ‘rebooter 
car le DOS est modifié. 


JSR PRINT 
ASC "- PUIS, S'IL S'AGIT DE DISQUETT 
£S NON» 
HEX 8080 
ASC » 
>" 
HEX 8D60 
ASC v 
HEX 00 
=] BIT KBOS7RB 
r4 LDA KBD 
BPL <4 
CMP /RET 
BNE >5 
JM START 
5 CMP 4ESC 
ANE <3 
PROL JSR HOME 
SAISIE PROLOGUES 
JSR PRINT 
ASC "LE PROGRAMME RECONNAIT LES DISQ 
GES AVEC" 
HEX 8D8D 
ASC " LE PROLOGUE D'ADRESSE : " 
INV "DSAA9E" 
HEX 8D8D 
ASC L£ PROLOGUE DE DATA : " 
INV "D5AA--" 
HEX 8D8D 
ASC "- S'IL EN EST AINSI, FRAPPER <R 
ÆETURN >" 
REX BD80 
ASC "= SINON ENTRER LES PROLOGUES* 
HEX 8D8D 
ASC * 
INV == Qi 


PROTEGIES FRAPPER <RETURN 


SINON FRAPPER <ESC>" 


AFFICHAGE POUR 


D'ADRESSE: * 


SL 10A KBO “CHOIX 2 
CMP 4RET 
B8EQ START 
JSR SAIPRO 
LOA #21 
STA VP0S 


«SAISIT PROLOGUES 


JSR PRINT 
ASC "CONFIRMÆS-VOUS ? OUI -> <RETUR 
D" 
HEX 808D 
ASC ” 
HEX 00 
22 BIT KBDSTRB 
52 LDA KED 
BPL <J 
CMP 4RET 
BEQ >4 
CMP PE5C 
BNE <2 
JMP PROL 
4 JSR NUMPRO 
PROG, 
JSR PATCH 
ŒUES 
BIT KBOSTRS 
JSR PATSYS 
STÈMÆ 
JSR 80 
LDA #22 
JSR TRAIT 
JSR PRINT 
ASC “<ESPACE> POUR SUSPENSION ET REP 
RISE" 


NON -> <ESC>" 


{CONVERSION HEXA 


+PATCHES POUR PR 


START 
JPAITCRES POUR SY 
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KEX 00 -LDA TRACX STA ({PTR),.Y 
LDA #10 JSR PRBYTE LDY #PCMD 
STA VPOS JSR DU 4LECTURE D'ONE P LDA #0 :CDE "SEARCH" 
JSR VTA8 ISTE I STA (ETR).Y 
LDA #22 LDA #2 Z8Y #PDRV 
STA WNDE STA DRIVE LDA DRIVE 
LDA #0 JSR DUMP :LECT. MEME PIST STA (PTR},Y 
STA TRACK £ II LDY #PVOL 
STA FLG JSR COMPARE ; --> COMPAR LDA 90 
JSR VECPML ne INC TRACK “PISTE SUIVANTE STA (PTR)/,Y 
STYPTR IDA TRACK LDY #PVNF 
STA PTR9I CMP 4523 :JUSQU'A 35ÈME STA (PTR),Y 
LDY 4PSLET :CHERCR PORT DSO BCC BOUCLE JSR VECPML ‘CALL DE "RNTS" 
LDA (PTR)},Ÿ JSR SELL JSR RATS 
STA SLOT IDA FLG LDA #0 ‘APRES 
TAX BNE >1 STA $48 “UN CALL DE RATS 
LDA ORVIEN, X «CALAGE DU 8RAS JSR ROME LDY 4PSLOT 
DE DR 2 18A #10 LDA (PTFJ,Y 
LDA MOTORON, X “SUR LA PISTE O0 STA VPOS TAX 
LDY #$50 LDA #5 LDA MOTORON, X -TOURNE ENCORE P 
TRACKO LDA PHASEOFF,X STA HPOS OUR LECT 
TYA JSR VTAB LDA Q7L.X ;PREP. LECTURE 
AND #$503 JSR PRINT LDA #0 
ASL &LX ‘VOS DISQUETTES SONT IDENTIOUES" STA PIR 
ORA SLOT HEX 00 LDA DRIVE “SET BUFFER EN 
TAX 4] BIT KBDSTRS ASL “F(N) DU DRIVE 
LOA PHASEON, X Js8 TEXT ASL 
LDA 4$56 LDA 40 ASL 
JSR HAIT STA HPOS er 
DEY LDA #23 ASL 
BPL TRACKO STA VPOS STA PTR+1 
LDA SLOT JSR VTAB LBA #$5E0 :$20 INCR. AMENE 
TAX JSR PRINT RON? 
LDA MOTOROFF, X ASC "D'AUTRES DISQUETTES ? —-> <RET STA CPT ‘CPT À ZERO 
A ERN> “ LDY #0 
ÿ #** EXPIORATION DES 35 PISTES ##* REX 00 RD LDA QEL,Xx :LECTURE NIBBLE 
; #2 LDA KBO BPL RD 
BOUCLE  LDA #1 BPL «2 CMP USFF :JUSQU'A TROUVER 
STA DRIVE CMP #RET NE RP :2 FF AUTO-SYNC 
STA KPOS BNE 33 RD1 LDA Q6L,X 
LDA PIS JMP DEBUT BPL RD1 
CMP 42 23 JSR HOME :FIN PROGRANE CMP ESF 
B£Q 1 JM DOS :RETOUR AU 00S BNE RD 
LDA #10 RD2 LDA Q6L, x <LECT. JUSQU'A 
STA HPOS #* TRANSFERT EN MSMOIRE DES 2 PISTES #* BPL RD2 :FIN DES "FF 
STA VPOS : CMP #5FF 
JSR VTAB DUMP JSR VECPML {: INSTALLATION 8£O RD2 
ER PRINT STY ETR :PARAMETER LIST BNE RO4 :DEBÛT DE 
ASC "PISTES: " POUR RATS RD3 LDA 06L,x <OATA OU ADR£ESS 
HEX 00 STA PTR+1 BPL RD3 
Ep LDA "S LDY #PTRK RD4 STA (PTR),Y “TRANSFERT 
JSR COUT LDA TRACK INC PTR {TIMINWG CRITIQUE 
Lé LA e 
Récapitulation 0898=\C5 C3 CI D3INESEB2N A0 CC 0970- C5 D2 A0 BC D2 C5 D4 D5 
“‘COMPDISK’ O08A0- C5 AO D3 D9 D3 D4 C5 CD 0978- D2 CE BE 8D 8D AO AO AO 
O8A8- C5 AO C4 A7 C5 D8 DO CC 0980- AO AO AO AO AO AO AO D3 
Après avoir saisi ce code sous 08B0- CF C9 D4 C1 D4 C9 CF CE 0988- C9 CE CF CE A0 C6 D2 C1 
moniteur, vous le sauvegarderez par 08B8- 8D 8D AO AO AO AO AO 31 0990- DO DO CS D2 AO BC C5 D3 
BSAVE COMPDISK;,A$7F D,L$9BA 08C0- A0 AD BE AO C4 CF D3 8D 0998- C3 BE 00 2C 10 CO AD 00 
08C8- 8D AO AO AO AO AO 32 A0 09A0- CO 10 FB C9 8D DO 03 4C 
OIFD=MC" 11 08 08D0- AD BE AO DO C1 D3 C3 C1 08A8= 26 0B C9 9B DO ED 20,58 
0800- A9 4C 8D 7A A5 8D 9E AS O8D8- CC AO C5 D4 AO DO D2 CF O9BCECN20 401 10" CC C5v AU "DO 
0808- A9 84 8D 7B A5 8D 9F A5 O8E0- C4 CF D3 8D 8D AO A0 A0 09B8- D2 CF C7 D2 C1 CD CD C5 
0820 AS V20NS SN FC 20401 1002D 08E8- AO A0 33 AO AD BE AO C3 DICO ADMIDENCS, C3 "CEHNCENCE C1 
0818="2D\2D\2D #D\ 2D\2DW2D\2D O8F0=" DO_ Ar;  CD_8D 8D' A0 AOL AO O9GSNCIMDIVAO CC C5 D3VAO0 NEA 
0820- 2D 2D 2D 2D 2D 2D 2D 2D 08F8- AO A0 34 AO AD BE AO C9 09BD=4C9.D3 D1 DS C5" DILAD CI 
0828- 22 8D 20 20 03 OF OD 10 0900- CE C3 CF CE CE D5 AO A0 09B8- D6 C5 C3 8D 8D A0 AO A0 
0830 M0 LP OM AI OS NS ET 20 0908- A8 D3 C5 C3 D4 C5 D5 D2 OSEO= AU AD AD ICC C5 AOL DON92 
0838- 04 05 20 20 8B 20 20 04 09120- A0 D0 C8 D9 D3 C9 D1 DS5 OPPSNEF IEC CRE 7 DSC SAUCE 
DB40 RO0D PT ST INT 0E 13820031 0918- C5 A9 8D 8D 00 2C 10 CO 09FO0=- A7 C1 C4 D2 C5 D3 D3 C5 
0848- 36 2D 13 03 14 20 20 8D 0920- AD 00 CO 10 FEB C9 80 90 09F8- A0 BA AO 04 35 01 01 39 
0850- 2D 2D. 2D 2D 2D 2D 2D 2D 0928= F4,C8 BS/B0 F0 99 501085 0A00- 36 8D 8D AO AO AO AO A0 
08582 2Dh2D\2D\2D 20" 20N2D 2) 0930- 8E 20 O1 10 AD AO DO D5 DAGS- AMCC C5'AG DO DENCF CC 
0860- 2D 2D 00 20 12 11 A9 05 0938 CINDIV AC AU DIF" ATACOIN CC D'ATOCENC7 DSC E AONCIMCS A0 
086,87 85.22n20 58, EC. 20401 10 0940 AOL DS AVRCINC/MEILDI A0 0A18- C4 C1 D4 C1 AO AO AO BA 
0870- AD AO C9 CE D3 D4 C1 CC 094982 CIN CE VAONCINCIN NDS DIN D5 DA20-— A0 ‘04 35 O1 Q1 ?Dv\2D #WD 
OBIAE-NCCLC EN D2NAONCECICS D 3VAI0 0950 C5 D4 D4 C5 D3 AO CE CF 0A28- 8D AO AO D3 A7 C9 CC AO 
0880- C4 C9 D3 D1 DS CS D3 A0 0958- CE 8D 8D AO A0 AO AO A0 0A30- C5 CE AO C5 D3 D4 AO C1 
0888- C1 AO C3 CF CD DO C1 D2 0960- AO DO D2 CF D4 C5 C7 C5 0A38- C91CE  D3 GS AC ‘A0 C6 "D2 
0890 €Sv 0? SOn6DR AD AUMPON 02 0968- C5 D3 AO C6 D2 C1 DO DO OA4O= C1 DO 80: \CS5"D2\ ADVEC: D? 
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om's n° 25 


BNE RD3 

INC PTR+i 

INC CFT 

BNE RD3 

LDÀ MOTOROFF, x 
RTS 


“MAXI 31 CYCLES 


:$2000 NIBBLES 
“SONT TRANSFERES 


#* COMPARAISON DES 16 SECTEURS ** 


COMPARE LDA 80 
STA PTR 
$TA PTR2 
LSA /BUFI 
STA PTRs1 
LA /SUF2 
STA PTR2+1 
LDY #0 
STY CPT 

BALAY LDA PTR+1 
CHP /LSUFI 
BCC >1 
JMP £RR 


BSAL.i CMP 6505 


BAL.3 CMP #596 


#2 LDX 45 
+3 JSR INCR 


°4 JSR INCR 
BAL.4 CMP 4505 


BaL.5 CAP 4$AA 
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*“INITIALISE 
“POINTEURS 


“ET CPTR DE SECT 


:PROLOG.NON RECO 


4CHERCHE PROLOGU 


:PROL. ADRESSE ? 
“QUI 
NON, + LOIN 


-SAUV NIBBLES 
SBONNANT NO SECT 


:CHERCHE PROL. D 


«ON Y EST 
4CHERCHE ROMILOG 


“INIT POINT DR 2 


STA FTR2 
LA /SUF2 
STA PTR2+1 
LOy 60 
IMC CET 
LDA CPFT 
CP #$10 
BCC BALAY 
RTS 





:SECT SUIV 


: JUSQU'AU 16EME 


#* RECHERCHE DU SECTEUR A COMPARER ** 


SEARCH  LDA K8D 
BPL >5 
BIT XBDSTRÉ 
46 LDA K8D 
BPL <6 
BIT KBDSTRB 
*5 LA PTR2+] 
CMP /LBUF2 
BCC >7 
UJSR ERR 
PLA 
CLE PRINCIPALE 
PIA 
R?S 
AT JSR INCR2 
SRC.1 Ce 9525 


SRC.2 CMP #SAA 


SRC.3 CMP 8596 


Le ILOX 85 
al JSR INCR2 


44 INC PTR2+1 


‘“SUSPENDRE LE 
TRAITEMENT 


4REPRENDRE 


°PISTE ILLISIBLE 
RETOUR DANS B&U 


<ON EST SUR UN S 


“EST-CE LE BON ? 


“NON => SUIVANT 


SRC 


DA 


BNE <6 
VSR INCR2 
.5 CMP #SAA 
BNE <6 
JSR INCR2 
MAÈNCER 
LDA 60 
STA CFTB+1 
IBA PSAA 
STA CFTE 
IBX #3 
LOA PTR,X 
STÀ SVPTR,X 
DEX 
BPL <1 


** COMPARAISON #* 


TEST ILDA (PTRJ.Y 


CMP (PTR2),Y 
BNF DIF 
JSR INCS 
JSR INCS2 
INC CPTB 
BNE TEST 
INC CPTB#1 
LOA CPTB#1 
CMP 92 
BCC TEST 
RIS 


INCR LDA (PTR),Y 
INCS INC PTR 


°2 


BNE >1 
INC PTR+1 
RTS 


INCR2 LDA (PTR2),Y 
INCSÈ INC PTR2 


DIF 


BNE <i 

INC PTR2+1 

RTS 

LDA SVPTR 

STA PTL+1 

LDA SVPTRsI 

STA PTH+i 
u DOS 

IDA /BFIS 

STA STI+2 

1LDA BFIP 

STA ST2+2 

JSR TRF 
FFERS 

LDA SVPTRY2 


-LA COMP.PEUT CO 


:POUR $156 NIBBL 


4 SAUV. ADR .DEBUT 
:UATA DES 2 SECT 


+DESACCORD 


:$156 NIBBLES = 


:ROUTINES D'INCR 
+ DE POINTEURS 


:TROUVE POSIT. 
/PENIBBILISE LE 
SECTEUR I 

; SELON ROUTINE D 


: TRANSFERT EN SÙ 


+ PRIMAIRE ET SEC 
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ONDAIRS 
STA P?PLo] 
LDA SVPTR+3 
STA PTH+1 
LOÀA /8F2S 
STA 6T1+2 
IDA /8F2P 
STA 572+2 
JSR TRF 
UR II 

10Y 60 

“1 LOX #0 

Er 4 LDA RFI9,Y 
LSR 8F1S,X 
ROL 
LSR 8F15,X 
ROL 
STA BF1P,Y 
INY 
8£0 »3 
INX 
CPX 0556 
8£9 «1 
BNE <2 

CS] £LDX 40 


GX] LDA 28F2P,Y 


BEQ <3 


JSR 40H 


LISYS 


+IDEM POUR SECTE 


21 


PRERR 


+ON COMMENCE DE 


‘LE SECTEUR IT 


+J0SQ0'A CE QU'o ADTSYS 


:LA DIFFERENCE 


‘1 DIFFSRENCE A 


+ÈTE VUE 


AFFICHAGE ENTET 





ASC "IL Y À DIFFERENCE POUR né 

ASC "(SYST:* 

AS ” di + 

REX 8D8D + 

INV "PISTE SÉCTEUR POSITION" 
+AFFICHAGE DE "B 


4SI SYST = 2 OÙ 


+AFFICHAGE DE 


*LA PISTE 


“PUIS DU SEC7.LO 
TAX 


#8ONE À PATCRER 


STA SCT ;EN F{N) DU SYs 


PLA +RECUPERATION DE 


+ON AMENE LE PON 


“SUR LE SECT. I 


BLKPAS 


BLKCPM 


— 


STA PTR 
LDA SVPTR+I 
ADC 4500 
STA PTRe! 
RTS 


LSR SCT POUR PASCAL 8T 


JSR LINPRT “AFFICH DECINAL 
LDa ", 

JSR COUT 

PLP 

LOA #0 

ADC 4#5B1 


JSR COOT *PARTIE DU BLOC 


:IDEM SI CP/M 
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+4 ROUTINES DIVERSES ** 
TRF CLC 
BBILIS, 
PTL 1LDA #09 
TINE 
STA LD1+1 
IT 
ADC 4556 
R 


PTA LDA 600 


£OR TRANSL, ÿ 


LD2 LDY $1000,x 
EOR TRANSL, Y 

ST2 STA $1000,x 
BNE LD2 

ERR LDA WNDT 


LDA VPOS 


{DA TRACK 
JSR PRBYTE 


*1 


-PREP DE IA DENT °2 


;PAICA UE LA R@U 


:POUR Q0'ELLE SO 


<CO#8NE AUX 2 D 


PRINT 
-CONVER SION 
-EOR DES NIBBLES 
CE 
SORTIE MESSAGE 
“PISTE ILLISIBLE 
22 
HEXA 
TRAIT 


JSR PRINT 


HEX 00 


:TIRER UN TRAIT 


Fe 


2 


NUMPRO 


Al 


INX 

CPX #12 

BCC <5 

a?s 

LDY 65 

LDX #11 

JSR NUM 

STA PROLQG, Y 
DEX 

JSR NUM 


SAISIE PROLOGUE 


:TRAITT DO 
SÎER CARAC SAISIT 


SI <RETURN> 


-AFICH EN INVERS 


SAISIE S AUTRES 
‘DIGITS PROL ADR 


:PUIS PROL DATA 


+ CONVERSION HEXA 
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1 


92 


NUM IDA INPUT,X Lure] 
FOR 125B0 STA BAL.151 :POUR PROLOGUES p d di 
CMP 450A STA BAL.4+1 a €, 
acc >2 STA SRC.l+1 Q 
SBC #$67 STA SRC.4+1 Souris, 
ce RTS LDA 6SRA et Apple lc 
PATCH  LOA PROLOG ROUTINE PATCA STA BAL.7+1 
STA BAL.141 POUR PROLOGUES STA BAL.S+1 - £ 
STA SRC.141 STA SRC.2+] Il est possible sur l'Apple //c 
LOA PROLOC+I STA SRC.S+1 et: : F 
Eee DR d'utiliser la souris en lieu et place 
STA SRC.241 STA BAL.3+1 des paddles. La méthode est la 
LOA PROLOG+2 STA SRC.3+1 : : 
STA BAL.3#1 LOX 4? REMISE À SPACES Suivante : 
STA SRC.3+1 POUR 
1DA PROLOG+3 LDA ” :LIBELLE SYSTEME ° En mode direct, taper : PR£4, 
STA BAC.4+1 "1 STA LISYS,X É à 
see FE puis CTRL-A, puis PR£C. 
LDA PROLOG+4 BL <1 ° En mode programme : PRINT 
STA BAL. 541 RTS “DD Ë 
re TDOS REX 00070F060D050C04 CHR${4) PR£4” : PRINT 
RTS HEX 0B030A020901080F ‘ 
PATSYS LDx #0 :PATCH TABLE DE TPAS REX 00080109020A0308 CHR$(1) : PRINT CHRS(d) 
21 LD A TSYS.x CORRESP. SECT.PH BEX 040C0500060€070F PR£O 
Ys TCPM HEX 000B06010C070200 
CHP SYST :RT SECT.LOGIQUE HEX 08030E09040F0A05 A titre d'essai, vous pouvez utiliser 
BFO PATS TPHY REX 0001020304050607 é 
IWX HEX 08090A0B0CODOEOF le programme suivant : 
INX ; 
INx : LIBDOS STR " 205 . 10 PRINT CHR$(4) “PR£4” : 
INX LIBPAS STR "PAS/PRO)" : 
1Nx LIRCPH STR " CP/M )" PRINT CHR$(1) : PRINT 
pts 1DA IStsex ME CHRS$(4) “PR£O” 
STA AOTSYSSI TSYS HEX D1 «TABLE D'ACCES À 20 PRINT PDL{0), PDL(t) 
LDA TSYS+2,X x 
STA ADTSYS+2 ADR TDOS : TABLES PRECEDEN GOTO 20 
LOA TSYS+3. TS RÉ UT) 
mn 1 ADR LIBDOS :D'APRES LE NO La souris s'utilise alors comme un 
STANTRTEEt “ra CG ‘DE SYSTEME CHOT | joystick. Ceci fonctionne avec les 
LOA TSYS+4.X SI < 
STA TRLIB+2 ADR TPAS programmes Basic ; en révanthe, la 
STA TRLIB242 ADR LIBPAS : 
TRLIB  LDA $1000 : TRANSFERT BU LI HEX 03 plupart des ROSES commer- 
secte 208 TCPH ciaux utilisant directement les a-. 
TAX IDE SYSTEME ADR LIBCPM d d ddl | 
TRLIB2 LOA S1000,X HEX 04 resses des paddles, ne sauront pas | 
SRRSEEX QE TRE se servir de la souris. 
DEX ADR LIBINC 
BNE TRLIB2 END 
RTS 
DEPATCH LOA 4505 :RENISE À VAL. S 




















Vous avez un Apple {le avec Chat Mauve ou un /{c ? 
Vous disposez de Pascal 1.2 ? 


Profitez de l'interpréteur COGO 


I1s'agit d'un systèrñe graphique double-haute 
résolution écrit en Pascal. 

COGO vous permet de manipuler des graphiques 
grâce à un langage de description des objets 

- points, angles- et à l'emploi de fonctions primitives 
de manipulation très puissantes : cercle, tangente, 
intérsections, parallèles, etc. I est ainsi possible 

de tracer des grilles, des cercles, des segments de 
droite, des tangentes communes à deux cercles, de 
calculer des distances, dés angles... 


L'éditeur permet une saisie rapide du langage. 
Une instruction COGO peut-être exécutée dès 
la saisie pour faciliter la mise au point, ou 

au sein d'un programme. 





Par Nicolas Montsarrat 


MAINTENANT EN DOUBLE HAUTE 
RÉSOLUTION SUR APPLE //C 


Ce programme, destiné à résoudre des problèmes de 
géométrie plane, comporte des instructions de 
stockage sur fichier afin dé permettre la reprise 
d'un calcul. 


150,00 F TTC, franco 
Bon de commande page 74 
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Le formateur de ProDOS désassemblé 


ar manque de place, le "kernel" (noyau) 
de ProDOS ne comporte pas de 
formateur. Contrairement au DOS 3.3, 
pour formater une disquette en ProDOS, il 
faut utiliser un programme spécifique. 11 existe deux 
versions des utilitaires ‘système’ de ProDOS 
(FILER), plus un utilitaire spécial pour l'Apple //c. 


La partie désassemblée ici concerne le formateur 
physique de la version la plus récente. Les deux 
versions de FILER diffèrent peu ; toutefois, 
l'emplacement du formateur a été déplacé de $7C00 
à $7E00. De plus, un bug qui l'empêchait de 
fonctionner sur des lecteurs de disquettes trop lents 
ou trop rapides (“DISK II TOO FAST” ou “DISK II 
TOO SLOW”) a été corrigé. 


Les lecteurs pourront comparer ce formateur avec 
celui du DOS 33 (voir RWTS désassemblée Pom's 
n° 21). Ils pourront s'apercevoir que la principale 
différence entre les deux est que ProDOS détecte 
quand l'erreur provient de la vitesse de rotation du 
lecteur. Ils pourront également voir comment 
modifier les valeurs de GAPMIN et GAPMAX si 
leur lecteur de disquettes est trop lent ou trop rapide 
pour le formatage ProDOS. G 





Source ‘FORMAT.SCE0’ 


Assembleur ProCode 








el * 

1 # ci 

CHR à Le 
308 ” 

4 * FORMATEUR du FILER de ProD0S * 

5 »* Copyright Apple Computer JUN/DEC 84 * 

6 * * 

7 #* Désessemblage Bruno Fénart 10/SEP/85 #» 

8 P * 

9 * * 

10 L + 
11 

1Z #* Formatage physique 16 secteurs DISK II 

13 * Pour le FILER de SEP 83 le début est en $7800 
14 #* La copie du boot (blocs Ü et 1) se trouve en $65D3.$69D2 
15 #* ou en S$6425.56824 pour l'ancienne version 
16 


17 #* Entrée: A = n° lecteur = n° slot x $10 + $80 si drive 2 
18 * VOLUME ($DE) = n° du volume formaté 

19 #* Sortie: Erreur -> carry set et A = n° erreur 

29 * Pas d'erreur -> carry clear et À = 0 

21 

22 ORC $7A00 +0RG $7800 pour l'ancienne version 
23 

24 * Variables en page zéro 

25 À mm. 

26 

27 CST.AA EQU $D0 ‘Constante $AA. Temporise 1 cycle 
28 PIST.NB EQU SD] ‘n’ piste à formater (init. D) 
29 SECT.NB EQU S$D2 ‘n° secteur à formater {init.= 0) 
30 VOLNB EQU $D3 sn‘ du volume (Init.= VOLUME) 

31  GAP3 EQU $SDd «Nbre sync. bytes {init.=GAPMAX+2) 
32 COMPTDAT EOU $D5 Compteur des données lues 


Bruno Fénart 
ESSAINS EQU $D6 «Nombre d'essai par piste (Max=3) 
TABLADR ÆEQU SD7 «Table de CHCKSM,5ECT,FIST, VOL 
SECTEUR ÆEQU TABLADR+1 ;n° du secteur 1u 
COMPTO EQU SDS «Compte 256 DELAY. Non initiaiisé 
COMETI EQU SDA sDécospte 1 s. Initialisé à $D7 
TAMPON EQC S$DB ‘Tampon pour le checksum (init.=0) 
CONPTEUR EQU S$DC «Esseis de lecture (init.= $FC) 
TAMPON2 ÆQu $DD Tampon codage 4 et 4 
VOLUME  EQU SDE ‘Entrée: n° du volume 


* Comnutateurs du lectaur de disquettes 


DRVSO EQU $co80 sPhase 0 
DAVOFE" EQU S$Co088 “Arrêt 

PRVON EQU $co085 ‘Marche 

DRVSLI EQU $C08A «Drive 1 
DRVSL2 EQU $C08B “Drive 2 

DRVRD EQU $cosc iLecture 

DRVNWR EQU $C08D Écriture 
DRVROM EQU S$SCO8E «Mode lecture 
DRUNRM  EQU SC08F Mode écriture 


* MACROS de lecture at d'écriture 


2 0 

READ MAC 
LOA DRVRD.X sLecture d'un octet 
BPL °-3 Lit tant que positif 
EO“M 

WRITE MAC Ecriture sur 9 cycles 


« [A Inchangé, Carry modifié) : 
STA DRVWR.X «Charge l'octet à écrire (5) 


CMP DRVRD,X ‘L'écrit sur le disque (9) 
ECM 
WRITEBIS MAC sEcriture sur 9 cycles 


: (À modifié, Carry inchangée): 
STA DRUNR, X ‘Charge l'octet à écrire (5) 
LDA DRVRD.X ‘L'écrit sur le disque (9) 


ECM 
WRSTATUS MAC “Test et {nitialise l'écriture 
‘ (indispensable avant d'écrire) : 
LDA DRVWR,X “Test si le disque est protégé 
LDA DRVREDM,X  : et positionne en séquence © 
ECM 
WRMODE MAC sDébute l'écriture st écrit 


+: l'Accumuiateur sur le «“isque 
STA DRVNWRM. X «Début écriture, charge octet (5) 


CMP  DRVRD,X ‘Ecrit le 1° octet (3) 
ECM 
WREND MAC ‘Fin du mode d'écriture 


LOA DRVRDOM,X 
LDA DRVRD,X 


EO“ 

DELAY6 MAC :Délai de 6 cycles 
NOP 

DELAY4 MAC Délai de 4 cycles 
NOP 

DELAY2 MAC 1Délai de 2 cycles 
NOP 
ECO“ 

DELAY3 MAC Délai de 3 cycles 
BIT $00 
EOM 

DELAY7 MAC Délai de 7 cycles 
PHA 
PLA 
EOM 

DELAY12A MAC :Délai de 12 cycles 
JSR RTS1 :Saut vers un RTS 
EOM 

DELAY12B MAC ‘Délai de 12 cycles (identique) 
JSR RTS2 Saut vers un RTS 
ECM 
FIN Fin des macros 


PUT FORMAT.SCEI1 
PUT FORMAT, SCE2 
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CC 
nue UN + © © © + A Un à LÀ 


CRE 
© D 


D VU Ou NU UN NU RS NO mm D OO où pm on em LC En En En En Un En In mA à = à e Le CU 
SÉGRNENAUNER OV SN AUNSUNES 6 SUB USU NN OS BR INAUNURGNE VEINES LUN NN NNN NS 


œ 
re 


82 


Source ‘FORMAT.SCE1’ 


Assembleur ProCode 








LA LA 
LA * 
d Début du code ” 
. LA 
* lère partie: Programme Principal #* 
. LA 
-. LA 








PRP Préserve le contexte 
SET : et interdit les fncerruptions 
USR DEBUT 
PLP cRestitue le contexte 
CMP  #$00 
BNE ERREUR 
CLic ‘Pes d'erreur: Retour à l'envoÿeur 
RTS ; avec À = 0 et Carrÿ cleer 
* Gestion des erreurs: Conversion en erreurs ProD0S 
* de -t- o 
* Entrée: Acc. = n° erreur l à 4 
* Sortie: Carry set 
4 Ace. = Erreur ProD0S -> Erreur d'E/S = $27 
R —> Bisque protägé = 528 
, -> Trop lent = 533 
—> Tro8 rapide = $34 
ERREUR CMP #$02 
BNE $autres 
LDA #6$2B Disque protégé en écriture 
JMP $fin 
$autres CMP #$01 
BNE S$speed 
LDA 4527 ‘Êrreur d'E/S 
JMP $fîn 
Sspoeed CLC 
ADC 4530 sAutres erreurs (vitesse DISK Il) 
$fin SEC ;Retour à l'ervoyeur avec le code 
RTS ;: d'erreur gens À et le carry set 
dédiés tédssidédédédéddéréiédéédérnddééréédédé 
L * 
* Positionnement du bras du lecteur par appel de ARMOVE * 
LA + 
Pr dd dd td dd dd dd dés idd dd idédédédéd 
* entrée: À « piste destinetlon 
e X = numéro du slot x $10 
* PISTACTU = piste actuelle 
* Sous-programme appelé: 
ve MOVARN = Positionne 1e bres srivant la valeur de À 
“ Variable local: PISIDEST 
POSTRACK ASL ‘ Piste destination x 2 
ASL PISTACTU ; Piste actuelle x 2 
STA PISTDEST ; À -> Piste destination x 2 
TXA -Récupére n° du slot x $10 
LSR 
LSR 
LSR 
LSR 
TAY ‘n° du slot en Y 
LDA PISTDEST 
JSR ARMOVE sPositionnenent 
LSR PISTACTU sRécupère piste actuelle 
RTS 
LÉLLLALLLLLELELELLIITLTILLZ ES 
LL L 
* formatage d'un disque * 
+ * 
édétédédéddéndéétsdédéérrédé 
* Entrée: Interruptinns inhibées 
* registre A = n° lecteur = n' slot x S1. + $S80 si drive 2 
* VOLUME ($DE} = n° du volume formaté 


83 
84 
85 
B6 
87 
88 
89 
90 
91 
s2 
93 
94 
95 
96 
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98 
93 
100 
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114 
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117 
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119 
120 
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123 
124 
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127 
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136 
127 
138 
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143 
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145 
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147 
148 
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150 
151 
152 
153 
154 
155 
156 
137 
158 
139 
160 
161 
162 
163 
164 
165 
166 
167 
168 





* Sortie: Carry indifférent (positionré par le prog princ) 
* registre A = n° de l'erreur de 0 à 4 (décodé per ERREUR) 


DEBUT TAX 
AND #570 ‘isole le n° du slot 
STA SLOT 
TXA “Récupère n° du siot et du drive 
LDX SLOT ;:n° du slot x $10en x 
ROL 
LDA 4500 
ROL sisole n° du drive 
BNE $arive2 
LDA DRVSLI,X ;Sélectionne le drive 1 
JMP Sdrivel 
$drive2 LDA DRVSI2,X Sélectionne le drive 2 
$Sdrivel LOA DRVON,X ;Mise en marche du lecteur j ou 2 
LDA 48$D7 sInitialise l'attente totale = 1 s 
STA COMPT1 
LOA 4$50 ;Positiun du bras fnitflisé à $50 
STA PISTACTU ; pour recalibrer celui-ci 
LDA #$00 sRecalibrage sur la piste 0 
USR  POSTRACK 
$attente LDA COMPTI ‘Temporise 1 s depuis le démarrage 
BEQ Sfinate ‘ 41 x 256 boucles 
USR DELAY # x 96 microsecondes = 1 seconde 
JR  S$attente 
$£inatt LDA VOLUME ‘Passage du paramètre 
STA VOL,.NE , du numéro de volume 
LDA 4#SAA 
STA CST.AA 
LDA GAPMAX ‘ On commence au dessus de la 
CLC { lirite pour pouvoir tester s1 
ADC #$02 # le disque n'est pas trop lent 
STA GAP 
LDA 6$90 ;Première piste à formater 
STA PIST.NB é = piste 9 
Spiste LDA PIST.NB ‘Positionnement sur la 
LOX SLOT : piste à formater 
USR POSTRACK 
LDX SLOT 
WRSTATUS :Test si protégé en écriture 
TAY ‘Préserve le résultat du test 
NREND sRepositicnne les switchs off 
TYA “Récupère le résultat du test 
BPL Sokwrite Si non protégée en écriture 
LDA 4$02 ; sinon erreur 2 = DISQUE PROTEGE 
JM FIN ; et fin 
Sokwcite J'SR NRITRACK ‘formate une piste puis la teste 
B8CC Sokform :Si pas d'erreur 
LOA 450: Erreur 1 par défaut = ERREUR ES 
LDY GAP3 «Teste l4 largeur des ÿaps 
CPY GAPMIN “Gap 3 trep court ? 
BCS S$Simpfin Non: erreur non identifiée et fin 
LDA #$04 “ sinon erreur DISK II TROP RAPIDE 
Simpfin JMP FIN ; et fin 
Sokform LDY GAP3 :Pas d'erreur au formatage 
CPY GAPMIN ; mais teste la largeur des gaps 
BCS Sokspal :Gsap 3 trop court ? 
LDA #$04 ‘Oui: erreur DISK II TROP RAPIDE 
JM FIN 4 et fin 
$okspdl CPY GAPMAX 
BCC S$Sokspd2 Gap 3 trop long ? 
LDA #$03 Oui: erreur DISK II 1ROP LENT 
JP FIN ; et fin 
$Sokspd2 ZOA TESTMAX Ultime test de la piste: 
STA TESTNB +; 16 essais au maxfoux 
$ftest DEC TESTNE Décompte le nombre des tests 
QNE $encore -Encore un test ? 
LDA 8$01 * sinon erreur 1 = ERREUR E/S 
JM FIN : et fin 
$encore LDX SLOT 
JSR READRES ‘Tente de lire le secteur zéro 
8CSs Stest Lecture réussie ? 
LDA SECTEUR :n° du secteur lu 
BNE f$test Secteur zéro ? 
LDX SLDOT 
JSR READATA ‘puis ses données 
BCS $test «Lecture réussie ? 
INC PIST.NE «Test fini on passe à 
LDA PIST.NE ‘la piste suivante 
cu 4523 Piste 35 (derniére piste) ? 
BCC Spiste ‘sinon encore une piste 
LDA #$00 “Erreur 0 = pes d'erreur 
DIN PHA sPréserve le numéro de l'erreur 
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169 
170 
171 
172 
TS 
174 


Source 


SLOT 
DRVOFF, X 
500 
POST RACK 


sArrêt du lecteur 
sPositionne le bras & la piste 0 


sRécupère le numéro de l'erreur 
‘Retour au programve principal 


‘FORMAT.SCE2’ 


Assembleur ProCode 


S © © + a Un à Q N + © 


— 


bé be bé Le 
CREER 


us be ds 
os 


è 1 à d& M dm U Lu Us OU LOU Ge W WA A NN N à N N 
aus Lo EE SM ET SE 


47 


On Un Un Un Gn Ua Un in En à à 
D “3 GO Um WU Nr © & D 


59 


* 


2ème partie: sous-programmes * 


RÉRRATRRARRÉRRRARRÉARRÈRARRORRAR 


* 


* 


* Test du champ des données , 


CETALEZLIZLLELLILIILIIILLII11111111111 


* Teste si chacune des 342 ($156) données est nulle ($96) 


* Entrée: X = n°" de slot x 15 

, Read mode { DRVRD & DRVRDM }J 
* Sortie: Erreur “> Carry set 

4 Pas d'erreur => Carry clear 


* Registres: A = $AA, YŸ = $00. X = inchangé 
* Variable locale: COMPTUAT = Compteur des données lues 


READATA LDY #520 
$posie  OEY 
BEC IZNOCOUD 
REA 
Sreposit EOR #$05 
BNE $posit 
NOP 
READ 
CP 4#SAA 
BNE f$reposit 
LDY #556 
READ 
CMP  #$AD 
BNE SrePosit 
LDA #$00 
$data DEY 
STY COMPTDAT 
R£EAD 
CMP #596 
BNE  IENOGOUD 
LDY COMETDAT 
BNE S$dats 
$datas STY CONETDAT 
READ 
CMP #$596 
BNE  IZNOCOUD 
LOY COMPTDAT 
INY 
BRE $detas 
READ 
ca #$596 
BNE  IZNOGOUD 
READ 
Q4P  4SDE 
BNE  IZNOGOUD 
NOP 
READ 
CMP #$AA 
BEQ IZCOUD 
I2NOÇOUD SEC 
RTS 


:32 tentatives (synchro. bytes) ? 
‘Lit un octet 
‘Début du prologüe ? 


‘Lit un octet 
; Suite du prologue 7? 


Pour après (342 ectets) 

‘Lit un octet 

+ FIN du prologve des données 
: Prologue $D5/$AA/S$SAD ? 


‘Lecture de 86 données 


‘Lit un octet 


‘ = donnée nulle 
«Toutes les données nulles ? 


‘Lecture de 256 données 

Lit un octet 

; = donnée nulle 

Toutes les données nulles ? 


zLit un octet 

; doit &tre nulle 
“Checksuæ correct ? 
‘Lit un octet 

Début de l'épilogue ? 


“Lit un octet 

: suite de l'äpilogue 
“Epilogue = $DE/SAA/$EB) ? 
Ce n'est Pas bon (traduction! 


ÉELLLLLLLLLLLLLLLLLLLLLLLLLLILILLE) 


, Lecture du champ d'adresse , 


COLLE LLLLELLLETTI ILE LILI I III LITE) 


73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
ea 
89 
90 
si 
92 
93 
34 
95 
36 
ir 
98 
99 
100 
101 
102 
103 
104 
185 
106 
107? 
108 
109 
110 
Ji 
112 
113 
114 
119 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
139 
130 
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132 
137 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
150 
158 





* Lecture des n° da volume, piste et secteur 
* Entrée: X = n° de slot x 16 

, Read node ( DRVRD & DRVRDM } 

* Sortie: Erreur => Carry set 

, Pas d'erreur => Carry cleer 

* TABLADR+#3 = n° voluns 

# TABLADR+2 = n° piste 

, TABLADR+] = n° secteur 

* TABLADUR “ checksuo 

* Registres: À = SAA, Y = $00, X = inchangé 


* Variables locales: OCOMPTEUR * Compteur d'essai 


, TAMPON1 = Calcui du checksum 
, TAMPON2 = Décodage 4 et 4 
READRES LDY #$FC ‘Init. du compteur 
STY COMPTEUR 
Sposit INY # 256 tentatives 
BNE Sencore 
INC COMTEUR : x 344 
BEQ IENOGOUD ; = 772 tentatives 
$encore READ ‘Lit un octet 
Sreposit CMP #$D5 +: Début du prologue ? 
BNE $posit +: sinon recomence 
NOP 
READ Lit un octet 
CMP #$AA +: suite du prologue ? 
BNE S$reposit 
LDY 4#$03 «Pour aprés: VOL/PIST/SECT/CHCKSM 
READ :Lit un octet 
mp #$596 ; fin du prologue 
8NE S$repogit : Prologue = $D5/$AA/$96 ? 
LDA 4#$00 sInit. pour la checksum 
S$décode STA TAMPON] sChecksum fntermédiaire 
READ ‘Lit un octet 
FOL ‘ x 2 (codage 4 et 4) 
STA TAMPON2 
READ ‘sit un octet 
AND TAMPON2 sRecompose 4 et 4 
STA TABLADR.Y :Stocké en ordre décroissant 
EOR TAMPON] ;Calcule 1a checksu® 
DEY 
BPL S$décode ssuivent Vol/Pist/Sect/Chcksmæ 
TAY + checksum EUR checksum 
BNE JIENOGUUD # Ghecksus différent ? 
READ ‘Lit un octet 
CMP #SDE ‘Début de l'épilogue ? 
BNE IZNOCOUD 
NoP 
READ ‘Lit un octet 
CMP 4SAA s suite de l'épllogue 
&NË J2NOGOUD ; Epilogue = $DE/SAA(/$EB) ? 
IZGOUD CiC sC'est tout kon {$EB non testé!) 
RTS 


ELLLEPPELLELLLLLIELLELE EST ELLEPPEELEP LEE PELLE PPLIPEET] 


* * 
*  Posftionnenent du bras sur la piste destination * 
* * 


RÉRÉRRORÉÉRRÉRÉRRRRRRARRRRRRRÉÉRRÉRROÉRARARÉRAARÈRN TE 


* Sous programme: DELAY = Temporise suivant 1a valeur de À 
* Entrée: registre À = piste destlnation x 2 


* registre X = numéro du slot x $10 

* PISTACTU = piste actuelle x 2 

» DELAYON at DELAYOFF = tables de temporisation 
* Sortie: registre X = inchangé 


Variables: SLOTARM, PISTDEST, PISTACTO, PISTPRRC. PISTDIFF 


* Comvutations des switches (Départ sur une piste poire}: 
* Ordre croissant : 310524 fi piste} 
* ou $ 3052 74160 (2 pistes) etc... 
* Ordre décroissant: 7 0 5 6 4 {1 piste) 
* ou : 7056 34120 (à pistes) etc... 
ARMOVE STX SLOTARN 
STA PISTDEST Piste destination x 2 
CMP PISTACTU ‘Piste actuelle x 2 
BEQ S$nomove Si égalité, alors fin anticipé 
LDA 4500 
STA PYSTDIFF {Nombre de pistes déjà parcourues 
$boucle LDA PISTACTU 
STA PISTPREC 
SEC iPiste actuelle - destination x 2 
SBC PISTOEST ; = nombrs de pistes à parcourir 
BEO Smovena Si = 0 aiors fin du mouvement 





159 BCS S$Sarriere Si actuelle > destinestion: recule 245 LDA #$EB ‘Fin épilogue 

160 EOR F$FF «Complément à 1: valeur absolue-1 246 JSR NWOATASI ; (idem) 

161 INC PISTACTU ‘Piste suivente en avant 247 LDA #$FF “Octet synchro 

162 BCC Savant 248 JSR WDATAS : (idan) 

163 Serriera ADC V$FE ;Veleur absolue-l 289 NREND «Fin du mode d'écriture 

144 DEC PISTACIVU :Piste suivante en arrière 250 RTS 

145 $Savant CMP PISTUIFF  :Compare pistes à Parcourir et 251 

166 BCC Sainimum ; parcourues. Prend le miniæum 252 NDATA9I  DELAY2 ; 2] 

167 LDA PISTOÏIFF 253 NDATA7 DELAY7 2 17) (9) 

168 Sminimum CMP $$0C «Vitesse limitée su del4 de $0C 254 WRITE ‘Ecrit un octet (9) 

169 BCS Slismite : sf égale DELAY inchangé 255 RTS ; (15) 

170 TAY ;: sinon nouveau pointeur au 

171 Sliwite SEC EN 

172 JSR Son :Commute pour le piste suivante 258 LALALRARLELELELRALLLLELRLLLLLLLLLLLEZ: 

173 LDA DELAYON,Y :Temporise en fonction du 259 * * 

174 JSR DELAY ; nombre de pistes parcourves 260 * Ecriture du champ d'adresse * 

175 LDA PISTPREC Piste Précederte 281 ? s 

176 CLC ;Décommute celle-ci avec 262 LRÉÉRRRÉRRRRRRÉRRÉÉRARRÉÉRRRRRLÉR 

177 USR Soff ; un coup de retard 263 

178 LDA DELAYOFF,Y :Nouvelle temporisation 264 * Entrée: Registre Y = GAP3 sauf secteur Ÿ = 128 

3279 JSR DELAY 265 * Registre X =n* du slot x 16 

180 INC PISTDIFF  ;Incrémente pistes parcourues 266 * VOL.NB = Numéro du volume 

181 BNE S$boucle ‘Boucle toujours 267 A PIST.NE * Nunéro de la piste 

182 S$movend JSR DELAY ‘lenperise et décammute 268 * SECT.NB = Numéro du secteur 

193 CLC ; la dernière piste courante 269 * CST.AA # $AA (constante) 

184 Son LOA PISTACTU 270 * Sortie: registre X = inchangé 

185 Soff AND #$03 sPiste module 4 ( 4 switches } 271) Carry set si disque protégé, clear sinon 

186 ROL ;On ou off suivant la valeur de C 272 #* Sous-programmes appelés: RTS1 = Déai (DELAYI2A} 

187 ORA SLOTARM ‘Calcul du switch suivant le slot 273 * NADR.4.4 = Ecriture en codege 4 et 4 
188 TAX 274 * NDATAli = Ecriture après 11 cycles 
189 LDA DRVSO,X :Commute sur la bonne piste 273" WDATAS = Ecriture après 9 cycles 
190 LDX  SLOTARM 276 

191 Snomove RTS 277 WBITADR SEC ‘Par défaut Carry set ( = erreur) 
192 278 NRSTATUS “Test er f{nitialise l'écriture 
193 279 BMI S$fin Si protection aïors fin 

194 nnnnnsnnnnnnnnnnnsnntsetssensesesssetsssssetsesseus 280 LDA 4#$FF zOctet de synchro. 

195 * * 281 WRMODE Début et 1{ octet f9) 

1956 #* Sous-programme d'écriture du champ de données #* 282 DE LAY7 ‘ (16) 

197 »* ,* 283 Ssynchro DELAYIZA “Ecrit les octets (28) (28) 

198 vrrossoonnooonnosnooosoossoosssssonnnosssnononnonnt 284 DELAYI2A + de synchro. >40< >40< 

199 285 WRITE ‘Ecrit un octet (9 (9 
200 * Entrée: Registre X = n° du s1ot x 16 288 DELAY2 : (11) (11) 
201 * Sous-programmes sppeilés: RTS2 = Délai (DELAYI28) 287 DEX 5 (13) (13) 
202 * NDATAS = Ecriture epcés $ cycles 288 BNE Ssynehro ; 6) (15) 
203 * NDATA7 = Ecriture après 7 cycles 283 LOA 45D5 Prologue du champ d'adresse (17) 
204 250 JSR WADR9 : 17+#6 + 9 = >32< (15) 
205 WRITDATA DELAY12B 291 LOA 4$AA : (17) 
206 NRSTATUS «Test et fnitialise l'écciture 282 JSR MADR9 : (idem) 

207 LDA #$FF :Octets de synchronisetion 293 LOA  9$9€ 

208 WRMODE «Début et écrit le 1![ octet (9) 234 JSR  WADR3 :Fin prologue (iden) (15) 
209 DELAY? : 16} 295 LDA VOL.NE : (18) 
10 DELAY2 : (18} 296 JSR NADR,4.4  ; 18 + 6 + 8 = >32< & >32< cycies 
211 LDY #$04 Encore 4 octets du gap 2 (20) 297 LDA PIST.NS 

212 Saynchro DELAY7 : (27) (27) 298 JSR WADR.4.4  ; (idem) 

213 JSR  ADATA7 527 # 6 + 7 = >40< (15) (15) 29 LDA SECT.NS 

214 DEY : (17) (17) 300 JSR HWADR.4.4 î (idem) {i15) 
215 BNE Ssynchro ; (19) (20) 301 LDA VOL, NB ; (18) 
216 LDA 4$D5 :Prologue données (21) 302 EOR PISTNB  ;Calcule l'octet de checksum (21) 
217 JSR NDATA9 ; 21+#6+#9=>36< (15) 303 EOR SECT.NB i (24) 
218 LDA 9SAA : (17) 304 PHA sPréserve le résultat (27) 
218 JSR NDATAS ; 17 +4 6 + 9 = >32< cycles 305 LSR «Décalage (codage 4 et 4) {29) 
220 LDA #$aD 306 ORA  CST.AA 4<=> DORA f$AA mais + 1 cycle >32< 
22] JSR  NDATA9 ; ({den) (15) 307 WRITEBIS ‘Ecrit un octet 19) 
222 LOY #$56 4 $156 zéros à écrire (17) 308 PLA + (13} 
223 DELAY6 4 (23) 305 ORA  4S$AA 4 (15) 
224 ONE $prenier : (26) 330 JSR WADRII 4 15 + 6 + 11 = >32< cycles (15) 
225 S$zéro  DELAYI2B sEcriture de S56 zécos (26) xx 311 LDA #$DE ‘Inscrit l'épilogue (17) 
224 Spremier DELAY4 : (30) (30) 312 JSR NADR9I 4 17+#+6 + 9= >32< cycles 

227 LOA 4596 ‘Zéro en code $ et 2 D>32< >32< 313 LDA #$AA î 

228 ARITE Ecrit un octet 19) (9) 314 JSR NADR9 [ (idem) 

229 DEY : (11) (11) 315 LDA #$EB 

230 &BNE Széro : (13) (14) 316 JSR WADR9 :Fin épilogue {iden) 

231 DELAY3 : (16) 317 cLc «Pes d'erreur 

232 DE LAYr2 : (8) 318 Sfin WREND :Fin du node écriture 

233 Széros DELAY128 ; $100 zéros (30) (30) 319 RTS1 RTS 

294 LDA #596 : >32< >32< 320 

235 WRITE zEcrit (9) (9) 321 WADR.4.4 FHA +Codage 4 et 4 (32 
236 LDA #$96 : {11) (11) 322 LSR ‘ {5) 

237 DELAY2 : (13) (13) 323 CRA CST.AA r<=> ORA #SAA + 1 cycle (8) 

298 INY ‘ (15) (15) 324 WRITE ‘Ecrit le 1{ nibble (9) 

239 8NE Széros : (17) (18) 325 PLA ; (13) 

240 JSR NDATAS 4 17#6 + 9 = >32< {15} 326 DELAY6 t (19) 

24i LDA #$5DE sEpilegue des données (17} 327 ORA #$AA y (21) 

242 JSR WRATA9 {4 17 + 6 + 9 = >32< cycles 328 NADRII  DELAY2 : 12) (23) 

243 LDA 4$AA 329 WADR9 DELA}? # (2)  (4} (25) 

264 USR NOATA9 ; (iden) 330 DELAY7 : (9) (1i} >32< 





36 Pom's n° 25 


WRITE Ecrit un octet 
RATS # 


(9) 
{15) 


DFB $A0,$A0,$A0;Résidu inutile 


CCELEPELEZEE ZE ZI ZZ2 LL ZIIILIIIII111111112 
* + 

* Temporisation suivant la valeur de À * 

L + 
LLLELLEELEEEESESEESSELEELELELLEELIELELELEEX ZX] 

" 

* Entrée: À = Durée de la temporisation 

* Temporisation = À x 96 cycles {microsecondes) 

* COMPTO et COMTI1 sont utiiisés pour tamwPoriser 1 sec. 


DELAY LDX #$11 
$2 DEX 
es 52 ‘Boucle 16 fois 
INC COMPTO iIncrément de COMTI toutes 
8NE $3 ‘ les 256 DELAYs = 24,6 ms 
INC COMPT] Nombre / 256 des DELAYs totaux 
$3 SEC 
SEC #$01 
BNE DELAY ‘Boucle À x 96 microsecondes 
RTS 


Table des temporisations 





* 

LA 

* Délais permettant une accéléretion et une 

* décélération proÿressives du bras du lecteur. 
DELAYON OFB $01,$30,$28:Accélérotion 6 décélération 
$24.$20,$1E 

$1D, $1C, $1C:Vitesse stabiiisée 
$1C,$1C,$1C 


DELAYOFF CFA 
DFB 


$70,$2C,$26:Idem pour les switches off 
$22,$1F,$IE 
$1p,$1C,$IC 
$ic,$ic,$1c 


LLEELELELEELLELELELEELLLELE EE 
L L 
* Écriture d'une piste #* 
. LA 


tossossssosessessssesssssess 


* formate une piste et diminue GAP3 en fonction des tests 
* Entrée: ESSAIMAX = Nombre maximum d'essais par piste = 3 


2 GAP3 = Nonbre de bit de synchronisation 
# SLOT = Numéro du siot 
» TESTMAX = Nombre maximum de test par secteur 


* Sortie; Erreur -> carry set 


Lu Pas d'erreur -> carry clear 

* Sous-proÿramnes appelés: RTS2 = Temporise 12 cycles 
Le NRITADR = Ecriture des adresses 
* NRITDATA = Ecriture des données 


* Varfables locales: 
. ESSAINB = Nombre d'essais de formatage par piste 
né TESTNB ” Nombre de tests de iecture 


us SECT.NB = Numéro du secteur en cours 


WNRITRACK IDA ESSAIMAX  ;Nambre maximum (3) d'essais 
STA ESSAINE :de formatage d'une piste 
reformat LDY #$90 Longueur du gapl = 128 
LDA #$00 sPrenier secteur 
STA SECT.NE 
JUMP  Sgapl 
Ssecteur LDY GAP3 ‘Longueur du gap 3 
$gepl LDX SLOT 
JSR NRITADR 
BCC $noerr 
JMP RTS2 En cas d'erreur alors fin 
$noecr LDX SLOT 
JSR WRITDATA 
INC SECT.NB 
LDA SECT.NB 
Cæ #$10 
BCC $secteur ‘Ecriture des 16 secteurs ? 
LDY #$0F Carte des 16 secteurs 
ST? SECT.NB 
LDA  TESTMAX “Nombre maximum (16) 
STA JESTNE sde tentatives dé lecture 
$initmep STA SECTMAP,Y ;Initialise la carte à $10 


417 
418 
419 
420 
421 
422 
423 
d2é 
428 
426 
427 
428 
429 
430 
431 
432 
439 


434 
495 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
482 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
476 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
4395 
496 
497 
458 
499 
500 
501 
502 


$waitgap 


Ssectiest 


$oksecto 


Ssecterr 


Sérrgap 


$checche 


$ercedr 


RTSZ 


recomm 
$wait 


* Constantes 


SLOT 
PISTACTU 
TESTNE 
SECTMAP 
PISTDEST 
SLOTARM 
PISTOIFF 
PISTPREC 


Sinitmap 
CAP3 


$waitgap 
SLCOT 
READRES 
Serrgap 
SECTEUR 
Soksecte 
GAP3 
GAP3 
GAPMIN 
Serrgap 


SLOT 
READRES 
Ssecterr 
SLOT 
READATA 
$secterr 
SECTEUR 
SECTMAP,Y 
Ssecterr 
#SET' 
SECTMAP, Y 
SECT.N8 
$sectest 


TESTNE 
$sectest 
ESSAINÉ 
$errgap 


IESTMAX 


TESTNB 
SLOT 
READRES 
$e radr 
SECTEUR 
#$50F 
recomm 
TESTNE 
S$cherche 


LDX  4$D6 
DELAY]28 
DELAY128 
DEILAY3 
DEX 
B8NE 
UMP 


$wait 
reformat 





«Nombre de sÿnc. bytes (GAP3) - 5 
sAttente proportionnelle au gap: 


i 12 = 12 
s +12 = 24 
+ 02 ‘0: 31 
+ 4 = 35 
SU 2 “37. 
# + 3 = 40 cycles = 1 sync byte 


:Tente de lire le champ d'adresse 


‘n° du secteur lu 
‘Secteur zéro ? 


«Sinon GP3 est trop grand 
s on lie diminue 
# GAP3 n'est-il pes trop court ? 


‘Erreur: le disque va trop vite 


«Test des données 


n° du secteur vérifié 

Déjà vérifié ? 

«Si oui secteur suivant 
‘Sinon le marque dans ia carte 


«Un secteur de moins à tester 
Les 16 secteurs sont vérifiés 2? 
‘Oui, alors OK 

{ et c'est fini 


4 16 tentatives de lecture 
‘Encore une ? 

:< 3 reformatages (GAP3 constant} 
‘On reformata la piste ? 

:TroP c'est trop 

:K0 


+: TESTMAX x 2 = 32 
‘Recherche le dernier secteur 


rn° du secteur 

“Dernier secteur ? 

Oui: reformate un peu plus lofn 
:Sinon: encore un essai ? 
;Cherche pendant 2 tours du disque 
‘Secteur 15 non trouvé 

:KQ [et RTS de temporisation) 


‘Attente égale 4 214 bytes 
4 12 = 12 

12 = 24 

3-27 

2 29 

# + 3 = 32 cycles = 1 byte 
sReconnence un formatage 


. 
+ + + 


et variables 


sLargeur meximtim pour un gep 3 
+ - miniaus * AS 
<Nonbre mex d'essais de formatage 
Nombre mexi de tests de iecture 


sNüunéro du slot du drive x 16 
‘Piste réel x 2 (seuf inft.= $50) 
Nonbre de Casts 

+:Certe das secteurs vérifiés 
‘Piste destination x 2 (inft.= D) 
sNuméro du siot pour MOVARM 
‘Nombre de piste percourues 
sPiste précédente à PISTACTU x 2 














CLM à BBD. Madntosh est une marque sous licence chez Apple Computer, Inc. 





Tant qu'à faire 5 choses à la fois 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
peuvent faire mieux. 

Jazz de Lotus, c'est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cing programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réunis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 








Pouvoir gérer cinq applications à 
partir d’un seul écran. modifier une 
donnée dans une application et qu'elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c'est bien... 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d’un directeur 
de service. 

Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 

















nouveau apparaît, rien n'est plus facile 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut, un 
crapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier, 
effacer, modifier, ou coller des dessins, à 
chaque instant. 






Apple Computer France, Avenue de l'Océane 








autant les faire en même temps. 


é Fichier Edition HILL Graphe 7Yrace fixe Carac. Style 
LEE FE TER ET 
Presse-papiers 


Tableau des references 


TANTE a 
Marche Choco Rese 

REPRRTITION Re EA ventes 
Directeurs Uentes ; FA Bénéfices 


8 |Bénéfice brut :. 
(e) : 


10 Frais: f 
11 Transports _ : 
cité 


oMAESIONS L À 
: fer trim Zemetrim 3emëtrim 





Apple. le logo Apple sont les marques déposées d'Apple Computer, Inc. 


Jazz est une marque déposée de Lotus Development Corporation. 


Fuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1200 bauds 
en un instant vêtre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec Jazz l'entreprise est rentable. 
rondement menée, précise et discrète. 
inutile d'avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 





2.4. de Courtabœuf. B.P 131, 91944 Les Ulis Cedex. 
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Les traitements de texte et, en 
fait, quasiment tous les 
programmes qui fonctionnent sur 
le Macintosh bénéficient de la 
présence de nombreuses polices 
de caractères. Ceci va des 
‘polices systèmes’ Chicago, 
Monaco et Genève jusqu'aux 
polices spécialisées (techniques, 
scientifiques...) en passant par 
les polices ‘ludiques’ style Cairo. 
Seulement, il y a un revers : ilest 
souvent très difficile de savoir 
quelle(s) touche(s) doivent être 
enfoncée(s) pour obtenir tel 
caractère, d'autant plus que 
certaines polices en comporte 
plus de 220 (Times, par 
exemple). En fait, on pourrait 
classer les caractères en trois 
catégories : 


+ les caractères accessibles 
directement au clavier avec une 
seule touche ; 

+ les caractères accessibles au 
clavier, mais en deux temps 
(Option quelque chose plus 
autre chose) ; 

° les caractères absolument 
inaccessibles soit sur le clavier 
normal, soit sur le clavier 
‘étendu’ du Macintosh Plus, 
soit sur les deux. 


Pour la première catégorie, la 
nouvelle version de l'accessoire 
“clavier” de chez Apple (mais si! 
ceux qui ont commencé dans une 
calculatrice HP, avec des dollars 
issus de la vente d'un Combi 
Volkswagen et d'un garage...) 
fait l'affaire, même si ce n'est pas 
tou jours pratique (on ne peut pas 
repérer un caractère au premier 
coup d'œil). 

Pour la seconde catégorie, un peu 
de chance et beaucoup de patience 
permettent parfois de s'en sortir 
(qui peut dire instantanément 
comment on obtient le caractère 
‘É’, sachant que l'on ne l'obtient 
pas de la même façon sur le Mac 
et sur le MacPlus ?). 


Quant à la troisième catégorie, 
cela devient presque impossible, 
car une des solutions les plus 
simples consisterait à placer le 
caractère voulu dans le 
presse-papiers depuis un 
programme Basic et avec des 
CHRS(Truc), ‘Truc’ étant le code 
ASCII du caractère (encore faut-il 
le connaître), ensuite passer à 
MacWrite (par exemple) pour 
enfin coller le fameux caractère 
dans le document à traiter. Pas 
très souple. 


Voilà qui justifiait l'écriture du 
petit accessoire ‘ad litteram” qui, 
à Pom's, remplace “Clavier” 
depuis déjà plusieurs mois, ce qui 
nous permet d'être absolument 
sûr de son efficacité, ainsique de 
sa fiabilité. 


Utilisation 


Il n'y a pas grand chose à dire. 
L'accessoire respectant scrupu- 
leusement l“‘interface utilisateur” 
Macintosh, vous retrouverez ici 
toute les fonctions qui font le 
charme de cette machine 
Couper/Copier/Coller depuis le 
menu “Édition” ou au clavier, 
sélection, sélection étendue, 
édition, etc. et, si vous disposez 
d'un MacPlus, déplacements par 
les touches fléchées. 


#Pom's#é 
Times 
Symbol 
Helvetica 
Courier 
Chicago 
Geneva 
Monaco 













En fait, si on excepte des points 
de détail que nous examinerons 
plus bas, la méthode d'utilisation 
ce résume à ceci : 


AD LITTERAM, POUR TRAVAILLER... A LA LETTRE 


Julien Thomas 


* appel de l'accessoire depuis le 

menu € (classique !) ; 

choisir la police dans le menu 

installé par l'accessoire 

(comme “Clavier””) ; 

+ sélection et copie des caractères 
désirés ; 

* passage au document dans 
lequel seront collés les 
caractères. 


Détermination de la 
taille de la police 


Notre choix s'est porté sur le 
format ‘18 points’, ce qui 
autorise une bonne lisibilité. 
Toutefois, les polices de 
caractères n'utilisant pas cette 
taille n'étant pas rares, il fallait 
bien sûr prévoir l'affichage en 
fonction d'autres possibilités, 
d'autant plus que, même si une 
police existe en 18 points, vous 
pouvez foit bien ne placer, par 
exemple, que les formats 9, 12et 
14 dans le système. Forts de ces 
constatations qui, vous en 
conviendrez aisément, ont 
demandé un effort intellectuel à la 
limite de l'insoutenable, nous 
avons employé le ‘mécanisme 
suivant : 


+ affichage en 18 points si cette 
taille existe ; 

° sinon, on part à la recherche 

d'une taille valide inférieure à 

lénpoints : A7, 16) (15%.. 

jusqu'à 6 points ; 

si la police en question n'existe 

pas dans une taille inférieure à 

18, on essaie, en désespoir de 

cause, de trouver un format 

compris entre 19 et 24, en 
partant de l“‘axe” 18 ; 

* si l'on a toujours rien trouvé de 
valide, il ne nous reste plus 
qu'une seule solution (mais 
non pas le suicide. 
m'enfin !), forcer l'affichage 
de la police en 24 points, ce 
qui n'est ni très esthétique ni 
très rapide, mais on peut se 
consoler en se disant que ce 
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cas de figure n'apparaîtra 
pratiquement Jamais. 


Dans le cas, pas fréquent, d'une 
police existant uniquement en 
taille 24 points ou plus, ou encore 
d'une police spécialisée 
compoitant un grand nombre de 
caractères très larges, il y a de 
fortes chances pour que certains 
d'entre-eux se retrouvent hors de 
Ja fenêtre de l'accessoire. Si cela 
arrive, et si le caractère recherché 
n'est pas visible, il suffit de 
couper (ou effacer) une chaîne de 
longueur suffisante pour que les 
caractères masqués soient à 
nouveau apparents. 


Si vous 
programmez.. 


..et quel que soit le langage 
utilisé, vous êtes certainement 
amené à rechercher dansune table 
(que l'on a rarement sous la main 
au moment voulu) le code ASCII 
de tel ou tel caractère ; nous 
avons pensé à vous. Si un 
caractère est sélectionné (un seul) 
son code ASCII en notation 
décimale s'affiche dans une petite 
‘case’ située en bas et à droite de 
notre fenêtre : 


:<=>?7@RBCæpé"° 
EAALELAT TEE 


mer 


Fichier Exec 
‘ad litteram.Job’ 


Asm adlitteram.Asm Exec Edit 
Link ad litteram.Link Font-DA Mover Edit 





Fichier 
‘ad litteram.Link’ 


] 


{Resources 

ad litteram 

foutput Accessorium 
Type 'DFIL' 'DMOV: 
$ 
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Si vous cliquez sur ce code, vous 
obtenez le code ASCII en 
notation hexadécimale, et cetant 
que le bouton de la souris est 
maintenu enfoncé. Pendant cette 
période, le curseur devient 
invisible afin de ne pas géner la 
lecture du code : 


sTnfs0Nægéi-v 






:<=>7@NBCæpsé° 
EAAL ETAT 140 





Il faut noter que, sur le dessin 
ci-dessus, le curseur n'est pas 
invisible, ceci en raison de la 
difficulté de représenter ce type 
d'élément lorsque, justement, il 
est invisible. Sur ce, nous allons 
maintenant prendre un repos tout 
à fait mdispensable.…. 





Source 

‘ad litteram.Asm'’ 
Note : le caractère ‘f' indique la 
continuité d'une ligne (ne pas 
l'insérer dans le code !). 


RESOURCE ‘DRVR' 30 'ad litteram' 


; Routines utilisées : 


Trap  _AddResMenu $A94D 
.Trap _BeginUpdate $A922 
.Trap  _Checkitem $A945 
.Trap _DeleteMenu $A936 
.Trap _DisposMenu $A932 
.Trap _DisposWindow $A914 
.Trap _DrawControls $A969 
Trap _DrawMenuBar $A937 


Comment faire ? 


Vous n’avez pas la disquette Mac 
25: 


Pour générer l'accessoire à partir 
du source et des fichiers listés plus 
bas, il faut : 

° placer, sur une même disquette, 
l'éditeur (Edit), l’assembleur 
(Asm), le ‘linker’ (Link), Exec et 
Font-DA Mover (avec un fichier 
système pas trop volumineux, 
tous ceci trouve place sans 
problème, même sur une dis- 
quette 400Ko) ; 
depuis Exec, lancer ‘ad litteram. 
Job’. En fin d'exécution, et s’il 
n'y a pas eu d'erreur d’as- 
semblage, Font-DA Mover est 
appelé automatiquement ; 
ouvrir le fichier ‘ Accessorium' et 
installer l'accessoire où vous 
voulez ; 

° c'esttout... 


Vous avez la disquette Mac 25 : 


° utilisez Font-DA Mover pour 
installer l'accessoire sur les dis- 


quettes de votre choix (il se | 


trouve à la fois dans le système et 


dans un fichier baptisé in | 


SOrium: ; 
° c’est tout. d 





.Trap __DrawString $A884 
Trap _EndUpdate $A923 
Trap _EraseRect $A8A3 
Trap _FindControl $A96C 
Trap _FrameRect $A8A1 
.Trap _GetCursor $A9B9 
.Trap _GetFNum $A900 
.Trap _GetFontinfo $A88B 
.Trap _GetHandleSize $A025 
Trap _Getitem $A946 
Trap _GetMouse $A972 
Trap _GetPort $A874 
.Trap _GetScrap $A9FD 
Trap _GiobalToLocaï $A871 

Trap _HideCursor $A852 
.Trap _HiliteControl $A95D 
.Trap _HiliteMenu $A938 
.Trap _HLock $A029 
Trap _HUnLock $AO2A 
.Trap  _initCursor $A850 
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5 
A 


©) 
.Trap _insertMenu $A935 
.Trap _InvalRect $A928 
.Trap _MoveTo $A893 
.Trap _NewControl $A954 
.Trap _NewMenu $A931 
.Trap  _NewPrtr $A11E 
.Trap _NewWindow $A913 
.Trap _Pack7 $ASEE 
.Trap _PtinRect $A8AD 
.Trap _PutScrap $A9FE 
.Trap _RealFont $A902 
.Trap _SetCTitle $A95F 
.Trap _TEActivate $A9D8 
.Trap _TECalfext $A9D0 
.Trap _TEClick $A9D4 
.Trap _TECopy $A9D5 
.Trap _TECut $A9D6 
.Trap _TEDeactivate $A9D9 
.Trap _TEDelete $A9D7 
.Trap  _TEDispose $A9CD 
Trap _TEidie $A9DA 
Trap _TEinsert $A9DE 
-Trap _TEKey $A9DC 
.Trap _TENew $A9D2 
.Trap __TEPaste $A9DB 
.Trap _TEUpdate $A9D3 
.Trap _TextFont $A887 
.Trap _TextSize $A88A 
Trap _TrackControl $A968 
.Trap _SetCursor $A851 
.Trap _SetPort $A873 
.Trap _ShowCursor $A853 
.Trap _StillDown $A973 
.Trap _StringWidth $A88C 
.Trap _SysBeep $A9C8 
Trap  _ValidRect $A92A 
Trap _ZeroScrap $A9FC 
; EQUIV ALENCES 
; Type d'événements 
mButDwnEvt EQU 1 
keyDwnEvt EQU 3 
keyUpEvt EQU 4 
autoKeyEvt EQUA 5 
updatEvt EQU 6 
activateEvt EQU 8 


: Décalages/enregistrement événement 


; désactivée et pour touche ‘shift’ 





PositionND 


EOU NombreDeci+4 


NbrHexa EQU PositionND+2 
PositionNH EQU NbrHexa+4 
TailleTampon EQU PositionNH+2 
Oui EQU $100 
NbrCaracteres EQU 240 


; Entéête de l'accessoire {voir Pom's 19) 


Base 

$400 
0 
$16A 
0 


Ouverture-Base 
Status-Base 
Controle-Base 
Status-Base 
Fermeture-Base 


38888 38408 


Titre 


Q 
p 
Lee) 


24,'ad litteram (et | 

encore…),0 

Titre2 
DCB 7,17,Pom's',17 


; OUVERTURE DE L'ACCESSOIRE 

: Teste si l'accessoire est déjà ouvert. 
; Si oui, retour vers l'application. 

; Autrement, on débute l'initialisation 


; par la création d'un tampon de 

; mémoire non relogeable. 

Ouverture 
MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEA.L Aï,A4 
TSTL dCtWindow(A4) 
BNE Status4 
SUBQ.L  #4,5P 
MOVE.L  SP,-(SP) 
_GetPort 
MQVE.L  #TailleTampon,D0O 
_NewPtr,clear 
TST DO 
BEQ.S MemnoireOK 
MOVE #7,-(SP) 
_SysBeep 
BRA Status2 


; Ouverture de /a fenêtre 


evtNum EQU $o 
evtMessage EQU  $2 
evtMouse EQU $A 
evtMeta EQU $E 
e,tMBut EQU $F 
; Messages pour le ‘driver’ (accessoire) 
accEvent EQU $40 
accCursor EQU $42 
accMenu EQU $43 
accUndo EQU 544 
accCut EQU $46 
accCopy EQU $47 
accPaste EQU $48 
accClear EQU $49 


; Bits pour fenêtre activée ou 


| 


activeFlag EQU 0 

shiftKey EQU 9 

; Décalages/enregistrement fenétre 
portRect EQU $10 
WindowKind EQU  $6C 
WindowSize EQU $ac 

; Type de fenêtre 

noGrowDocProc EQU 4 

; Pour la routine de conversion 
numToString EQU O0 

; Décalages/'Device Control Entry' 
dCtlWindow EQU $1E 
dCtliRefNum EQU $18 
dCtIMenu EQU  $26 

; Pour passage des événements 
CSCode EQU $1A 
CSParam EQU $ic 

; Décalages/rectangle ‘QuickDraw' 
top EQU 0 

left EQU 2 

bottom EQU 4 

right EQU 6 

; Adresses pour ‘Couper/Coller' 
TEScrpLength  EQU  $ABO 
TEScrpHandie  EQU  $AB4 
Scratch8 EQU $9FA 

; Décalages/enregistrement TextEdit' 
teLineHite EQU $18 
teAscent EQU $1A 
teSelStart EQU $20 
teSelEnd EQU $22 
teLength EQU  $3cC 
teTextH EQU  $3E 
teFont EQU $4A 
teSize EQU $50 

; Décalages/enregistrement ‘Fontinfo' 
ascent EQU 0 

descent EQU 2 

; Curseurs ‘système 

iBeamCursor EQU 1 
watchCursor EQU 4 

: Pour instucton '_NewFtr' 

clear EQU $200 

: Equivalences 'maison' 

BS EQU 8 

MaxC EQU 300 
HandleCtt EQU WindowSize 
HandleCti2 EQU HandleCti+4 
HandlMenu EQU HandleCti2+4 
RefMenu EQU HandiMenu+4 
TamponCi EQU RefMenu+2 
TamponTx EQU TamponCti+128 
Article EQU TamponTx+240 
NPol EQU Article+2 
DrapeauMdf EQU NPoli+2 
DrapeauColle EQU DrapeauMdf+1 
DrapeauCurs EQU DrapeauColle+1 
CodeCourant EQU DrapeauCurs+1 
HandiText EQU CodeCourant+1 
Info EQU HandiText+4 
HandleAcc EQU Info+8 
NombreDeci EQU HandlseAcc+4 


MemoireOK 

MOVEA.L A0,A3 

SUBQL  #4,SP 

MOVEL  A3,-(SP) 

PEA RectFenetre 

PEA Titre 

MOVE #Oui,-(SP) 

MQVE #noGrowDocProc,] 
-(SP) 

MOVEQL #-1,D0 

MOVEL  DO,-(SP) 

MOVE #Oui,-(SP) 

CLR.L -(SP) 

_NewWindow 

_SetPort 

MOVE.L  A3,dCtWindow(Ad4) 

MOVEL  DctlRefNum(A4),f 
WindowKind(A3) 
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; Création du menu ‘Pons’ 


MOVE dCtiRefNum(A4),D0 
NOT D0 
ÊSEÉ #5,D0 
ORI #$C000,D0 
SUBQL #4,SP 
MOVE D0,dCtIMenu(A4) 
MOVE D0,RetMenu(A3) 
MOVE DO,-(SP) 
PEA Titre2 
_NewMenu 
MOVEL (SP). HandIMenu(A3) 
MOVE.L  #'FONT',-(SP) 
_AddResMenu 

; Création du bouton ‘Police .. complète’ 
SUBQ.L  #4,SP 
MOVEL  A3,-(SP) 
PEA RectBouton 
PEA TitreBouton 
MOVE #Oui,-(SP) 
CLR.È -(SP) 
CER.L -(SP) 
CER.L -(SP) 
_NewControl 
MOVEL (SP})+,HandleCti(A3) 


; {nitialisation de la chaîne contenant 
; les caractéres de code ASCII 16-255 


LEA TamponTx(A3),A2 

MOVEQ  #$10,D1 

MOVE #NbrCaracteres-1,D0 
@t MOVEB D1,(A2)+ 

ADDCQB  #1,D1 

DBRA D0,@1 


; Création d'un enregistrement 

; TextEdit, détermination de Ia police et 
; dela tarlle de départ, initialisations 

; diverses et retour à l'application en 

; COUFS. 


LEA Chaine1i,A2 
LEA TamponCti+1 (A3),A1 
MOVEQ  #6,D0 
@2 MOVEB (A2)+,(A1)+ 
DBRA D0,@2 
BSR NouveauTexte 
BSR Menu? 
ST DrapeauMd{(A3) 
BSR Inserer 
PEA RectVisTexte 
_ValidRect 
SF DrapeauCurs(A3) 
MOVE #$0324,NbrHexa(A3) 
_InitCursor 
Status? 
_SetPort 
Status4 
MOVE.L  dCtIWindow(A4),A3 
MOVE RefMenu(A3),[ 
dCtiMenu(Ad) 
Status3 


MOVEMLE (SP)+,D3-D7/A1-A4 
Status 

MOVEQ 

RTS 


#0,D0 


; FERMETURE DE L'ACCESSOIRE 


: Suppression de la fenêtre, du menu, 
; de l'enregistrement TextEdit'… 


Fermeture 
MOVEML A3-A4,-(SP) 
MOVEAL A1,A4 
MOVEAL dCtIWindow(A4),A3 
MOVEL  HandiText{A3),-(SP) 
_TeDispose 
MOVE dCtiMenu(Ad),-(SP) 
_DeleteMenu 
MOVE.L  HandiMenu(A3),-(SP) 
_DisposMenu 
_DrawMenuBar 
MOVEL  A3,-(SP) 
_DisposWindow 
CLR.L dCtlWindow(Ad4) 
MOVEAL Ad4,Af 
MOVEM.L (SP)+,A3-A4 
BRA Status 


; Routine de contrôle. Aiguille 
; d'accessoire en fonction des 
; messages passés par le système 


Controle 
MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEAL A1,A4 
MOVEAL AO,A2 
MOVEAL dCiWindow(A4),A3 
MOVE.L A3,-(SP) 
_SetPort 
MOVE CSCode(A2),D0 
CMPI #accEvent,D0 
BEQ.S Evenement 
CMPI #accCursor,DO 
BEQ Curseur 
CMPI #accMenu,DO 
BEQ Menu 
CMPI #accCut,D0 
BEQ Couper 
CMFI #accCopy,DO 
BEQ Copier 
CMP #accPaste,DO 
BEQ Coller 
CMPI #accClear,DO 
BEQ Effacer 
BRA Status3 


; Aïguillage des événements 


Evenement 
MOVEAL CSParam(A2),A2 
MOVE EvtNum(A2),D0 
CMPI #mButDwnEvi,D0 
BEQ.S Contenu 
CMP] #keyDwnEvt,DO 
BEQ Touche 
CMP] #autoKeyEvt,DO 
BEQ Touche 
CMP #updatEvt,D0 
BEQ MiseJour 
CMPI #activateEvt,DO 
BEQ Active 
BRA Status3 


; On arrive ici en cas de ‘ciick dans la 
; fenêtre de l'accessoire (action sur la 
; Zone de texte, le bouton ‘Police … 





Jp 
ER 


7) 


: complète’, ou encore Ja petite case 
; d'affichage du code ASCII du 
; Caractére sélectionné) 








Contenu 
PEA EvtMouse(A2) 
_GlobalToLocal 
CLR -(SP) 
MOVEL  EvtMouse(A2),-(SP) 
MOVEL  A3,-(SP) 
PEA HandieCtI2(A3) 
_FindControl 
TST (SP)+ 
BEQ.S @1 
CLR -(SP) 
MOVE.L  HandleCti2(A3),-(SP) 
MOVE.L EvtMouse(A2),-(SP) 
CLR. -(SP) 
_TrackControl 
TST (SP)+ 
BEQ.S @1 
PEA RectVisTexte 
_EraseRect 
MOVE.L  HandiText(A3),-(SP) 
_TEDispose 
BSR NouveauTexte 
BSR inserer 
BRA Status3 

@1 CLR -(SP) 
MOVE.L  EvtMouse(A2).-(SP) 
PEA RectVisTexte 
_PtinRect 
TST (SP)+ 
BNE.S @3 
TST.B CodeCourant(A3) 
BEQ Status3 
CLR -(SP) 
MOVEL  EvtMouse(A2),-(SP) 
PEA RectCode 
_PtinRect 
TST (SP)+ 
BEQ Status3 
PEA RectCode2 
_EraseRect 
BSR PoliceChicago 
MOVE PositionNH(A3),-(SP) 
MOVE #288,-(SP) 
_Moveto 
PEA NbrHexa(A3) 
_DrawString 
_HideCursor 

@4 CLR -(SP) 
_StillDown 
TEST (SP)+ 
BNE.S @4 
PEA RectCode2 
_EraseRect 
BSR AfficheCode 
_ShowCursor 
BRA Status3 

@3 MOVEL  evtMouse(A2),-(SP) 
BTST #shiftKey,f 

evtMeta(A2) 
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15 
Al 


@2 





D 


SNE DO 
MOVE.B  DO,-(SP) 


MOVEL  HandiText(A3),-(SP) 
_TEClick 

BSR DeReference 
MOVE teSelStart(A0),DO 
MOVE teSelEnd(A0),D1 
SUB DO,D 

SUBQ #1,D1 

BNE @2 

MOVEAL teTextH(A0),A0 
MOVEA.L (A0),A0 

MOVEB  O(A0,D0).D0 
CMP.B CodeCourant(A3),D0 
BEQ Status3 

MOVE.B  D0,CodeCourant(A3) 
ANDI.L #$FF,D0 

LEA NombreDeci(A3),A0 
CLR -(SP) 

_Pack7 

BSR PoliceChicago 
CLR -(SP) 

PEA NombreDeci(A3) 
_StringWidth 

MOVE #38,D0 

SUB (SP)+,D0 

LSR #1,D0 

ADD #351,D0 

MOVE D0,PositionND(A3) 
CLRL DO 

MOVE.B  CodeCourant(A3),DO 
DIVU #16,D0 

BSR CodeHexa 
MOVE.B  DO,NbrHexa+2(A3) 
SWAP DO 

BSR CodeHexa 
MOVE.B  DO,NbrHexa+3(A3) 
CLR -(SP) 

PEA NbrHexa(A3) 
_StringWidth 

MOVE #38,D0 

SUB (SP)+,D0 

LSR #1,D0 

ADD #351,D0 

MOVE D0,PositionNH(A3) 
PEA RectCode2 
_EraseRect 

BSR AfficheCode 

BRA Status3 

TST.B CodeCourant(A3) 
BEQ Status3 

PEA RectCode2 
_EraseRect 

SF CodeCourant(A3) 
BRA Status3 


; Segment utilisé en cas d'action sur le 
; clavier. On détermine s'il s'agit d'un 

; caractère à insérer dans le texte ou 

; d'une commande (couper, copier ou 

; coller) 


Touche 


BTST 


#0,evtMeta(A2) 





BEQ.S @2 
MOVE evtMessage+2(A2),/ 
DO 
ANDI #$DF,D0 
SUBI #86,D0 
BEQ Coller 
SUBQ #2,D0 
BEQ Couper 
SUBI #$FFEB,DO 
BEQ Copier 
BRA Status3 
@2 CMPIB  #BS,/ 
evtMessage+3(A2) 
BEQ.S @1 
BSR DeReference 
CMP] #MaxC,teLength(AO) 
BLT.S @1 
MOVE #7,-(SP) 
_SysBeep 
BRA Status3 
@i MOVE evtMessage+2(A2),] 
-(SP) 
MOVE.L  HandiText(A3),-(SP) 
_TEKey 
BSR ValideBouton 
BSR EffaceCode 
BRA Status3 
; Routine de mise à jour 
MiseJour 
MOVEL  A3,-(SP) 
_BeginUpdate 
PEA RectTexte 
_FrameRect 
PEA RectCode 
_FrameRect 
TST.B CodeCourant(A3) 
BEQ.S @i 
BSR PoliceChicago 
BSR AfficheCode 
@1 MOVEL  A3,-(SP) 
_DrawControls 
PEA RectVis Texte 
_EraseRect 
PEA portRect(A3) 
MOVE.L  HandiText(A3),-(SP) 
_TEUpdate 
MOVEL  A3,-(SP) 
_EndUPdate 
BRA Status3 


; Réponse à un message ‘Activate’ ou 
; Deactivate' pour rendre active ou 
; inactive Ja fenêtre de l'accessoire 


Active 

BTST #activeFlag,f 
evtMBut(A2) 

BEO.S @1 
MOVE.L  HandiText(A3),-(SP) 
_TEActivate 
SF DrapeauColle(A3) 
MOVEL  HandiMenu(A3),-(SP) 
CLR -(SP) 
_insertMenu 
_DrawMenuBar 
BRA Status3 

@1 MOVEL  HandiText(A3),-(SP) 


_TEDeactivate 





MOVE RefMenu(A3),-(SP) 
_DeleteMenu 
_DrawMenuBar 

BRA Status3 


; Changement de !a forme du curseur si 
; nécessaire {flèche ou curseur type 
; ‘texte'en forme de 1) 


Curseur 

Bufter SET -4 
LINK A6,#Buffer 
MOVE.L HandiText(A3),-(SP) 
_TEldile 
PEA Buffer(A5) 
_GetMouse 
CLR -(SP) 
MOVE.L  Buffer(A6),-(SP) 
PEA RectVisTexte 
_PtinRect 
TST (SP)+ 
BEQ.S @1 
TST.B DrapeauCurs(A3) 
BNE.S @2 
SUBQL  #4,SP 
MOVE #iBeamCursor,-(SP) 
_GetCursor 
MOVEAL (SP)+,A0 
MOVE.L  (AO),-(SP) 
_SetCursor 
ST DrapeauCurs(A3) 
BRAS @2 

@1 TSTB DrapeauCurs(A3) 
BEQ.S @2 
SF DrapeauCurs(A3) 
_InitCursor 

@2 UNLK A6 
BRA Status3 


; Traitement d'un changement de police 
; (menu ‘Pom's} 


Menu 
MOVE CSParam+2(A2),D7 
CMP Article(A3),D7 
BEQ Status3 
SF D6 
BRAS L1 

Menu2 
MOVEQ  #1,D7 
CLR Article(A3) 
ST D6 

L1  SUBQ #4,SP 
MOVE #watchCursor,-(SP) 
_GetCursor 
MOVEAL (SP)+,A2 
MOVE.L  (A2),-(SP) 
_Setcursor 
BSR MenuPolices 
MOVE NPoli(A3),-(SP) 
_TextFont 
MOVE D7,-(SP) 
_TextSize 
PEA Info(A3) 
_GetFontinfo 
BSR DeReference 
MOVE NPoll(A3).teFont(A0) 
MOVE D7,teSize(A0) 
MOVE Info+ascent(A3),DO 
MOVE D0,teAscent(A0) 
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ad litteram (et encore.) 


ADD Info+descent(A3),D0 
MOVE D0,teLineHite(A0) 
MOVEL  HandiText(A3),-(SP) 
_TeCalText 
TSTB D6 
BEO.S @t 
RTS 

@1 PEA RectVisTexte 
_invalRect 
CLR -(SP) 
_HiliteMenu 
SF DrapeauCurs(A3) 
_InitCursor 
BRA Status3 

; COUPER 

Couper 
BSR VerifSelection 
BEQ Status3 
MOVEL HandiText(A3).-(SP) 
_TeCut 
BSR TEToScrap 
BSR ValideBouton 
BRA Status3 

; COPIER 

Copier 
BSR VerifSelection 
BEQ Status3 
MOVEL  HandiText(A3),-(SP) 
_TeCopy 
BSR TEToScrap 
BRA Status3 

;COILER 

Coller 
TSTB DrapeauColle(A3) 
BNE.S @2 
ST DrapeauColle(A3) 
BSR TEFromScrap 

@2 MOVEAL HandiText({A3),A0 


Pom' 


Ssn025 







Police Cairo complète 


MOVEAL  (AO),AO 


MOVE TeScrpLength,DO 
ADD teLength(A0),D0 
MOVE teSelEnd(AO),D1 
MOVE teSelStart(A0),D2 
SUB D2,D1 
SUB D1,D0 
CMPI #MaxC,DO 
BLT.S @1 
MOVE #7,-(SP) 
_SysBeep 
BRA Status3 

@t TST TeScrpLength 
BEQ Status3 
MOVEL  HandiText(A3),-(SP) 
_TePaste 
BSR ValideBouton 
BRA Status3 

; EFFACER 

Effacer 
BSR VerifSelection 
BEQ Status3 
MOVEL  HandiText(A3),-(SP) 
_TEDelete 
BSR ValideBouton 
BRA Status3 


; Sous-programme pour valider le 
; bouton "Police … complète" 


ValideBouton 


@1 


TST.B DrapeauMdf(A3) 
BNE.S @1 

MOVEL  HandleCti(A3),-(SP) 
CLR -(SP) 
_HiliteControl 

ST DrapeauMdf(A3) 
RTS 


; Sous-programme pour invalider le 
; bouton 


InvalideBouton é: 
TSTB DrapeauMdf(A3) 
BEO.S @1 
MOVEL  HandieCti(A3),-(SP) 
MOVE #$FF,-(SP) 
_HiliteControl 
SF DrapeauMdf(A3) 

@i RTS 


; Passage du texte du presse-papiers 
; DeskScrap' au presse-papiers 

; TextEdit' (voir Pom's 24) 
TEFromScrap 


@1 


MOVEM.L A0-A1/D0-D2,-(SP) 
SUBQ #4,SP 

MOVE.L  teScrpHandie,-(SP) 
MOVE.L  #'TEXT',-(SP) 

PEA scratch8 
_GetScrap 

MOVEL  (SP)+,D0 

BPL.S @1 

MOVEQ  #0,D0 

MOVE D0,TeScrpLength 


MOVEML (SP)+,A0-A1/D0-D2 
RTS 


; Passage du texte du presse-papiers 
; TextEdit' au presse-papiers 
; "DeskScrap' (voir Pom's 24) 


TEToScrap 


MOVEM.L AO-A1i/D0-D2,-(SP) 
SUBQ #4,SP 
_ZeroScrap 

ADDQ #4,SP 
MOVEAL teScrpHandie, AO 
SUBQ #4,SP 
_GetHandleSize 
MOVEL  DO,-(SP) 
_HLock 

MOVEL  #TEXT',-(SP) 
MOVEL  {A0),-(SP) 
PutScrap 


MOVEAL teScrpHandise,AO 
_HUniock 

MOVEL  (SP)+,D0 
MOVEML (SP)+,A0-A1/D0-D2 
RTS 


; Efface le code ASCII 


EffaceCode 
TSTB CodeCourant(A3) 
BEQ.S @1 
PEA RectCode2 
_EraseRect 
SF CodeCourant(A3) 
@1 RTS 


; Sous-programme pour vérifier si des 
; caractères sont sélectionnés 


VerifSelection 
BSR.S DeReference 
MOVE teSelStart(A0),DO 
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CMP teSelEnd(A0},DO 
RTS 


; Déréférence'le ‘'Hande' de 
; l'enregistrement 'TextEdit' 


DeReference 
MOVEAL HandiText(A3),A0 
MOVEAL (A0),A0 
RTS 


: Création d'un nouvel enregistrement 
; TextEait 


NouveauTexte 
SUBQ.L  #4,SP 
PEA RectDestText 
PEA RectVis Texte 
_TENew 
MOVEL  (SP)+,HandiText(A3) 
BSR EffaceCode 
RTS 


; Inseition de la chaîne de caractères 
; (ASCII 16 à 255) 


Inserer 


PEA TamponTx(A3) 
MOVEL  #NbrCaracteres,-(SP) 
MOVEL  HandiText(A3),-(SP) 
_TEinsert 

MOVE.L  HandiText(A3),-(SP) 
_TEActivate 

BSR InvalideBouton 

RTS 


; Mise äjour du menu ‘Pom's'et 
; changement d'u texte et du bouton en 
; fonction de la police sélectionnée 


MenuPolices 
Butfer SET -100 
LINK A6,#Butfer 
TST Article(A3) 
BEQ.S @1 
MOVEL  HandiMenu(A3),-(SP) 
MOVE Article(A3),-(SP) 
CR -(SP) 
_Checkltem 
@t MOVE D7,Article(A3) 
MOVE  HandiMenu(A3),-(SP) 
MOVE D7,-(SP) 
ST -(SP) 
_Checkltem 
MOVE.L HandilMenu(A3),-(SP) 
MOVE D7,-(SP) 
PEA Buffer(A6) 
_Getltem 
LEA Buffer(A6),A2 
LEA TamponCtl+8(A3),A1 
MOVEB  (A2)+,D0 
EXT DO 
SUBQ #1,D0 
@2 MOVEB (A2)+,(A1)+ 
DBRA D0,@2 
LEA Chaine2,A2 


MOVEQ  #8,D0 

@3 MOVEB (A2)+,(A1)+ 
DBRA D0,@3 
MOVEQ  #16,D0 
ADD.B Buffer(A6),DO 
MOVE.B  D0,TamponCti(A3) 
MOVEL HandleCti(A3),-(SP) 
PEA TamponCil(A3) 
_SetClTitie 
PEA Buffer(A6) 
PEA NPoli(A3) 
_GetFNum 
MOVEQ  #18,D7 

@4 BSRS TailleVaïide 
BNE.S @5 
SUBQ #1,D7 
CMPI #5,D7 
BNE.S @4 
MOVE #19,D7 

@6 BSRS TailleVatide 
BNE.S @5 
ADBQ #1,D7 
CMPI #25,D7 
BNE.S @6 
MOVEQ  #18,D7 

@5 UNLK A6 
RTS 


; Pour déterminer si la police 
; Sélectionnée existe en taille N {D7) 


TailleValide 
SUBQL  #2,SP 
MOVE NPoli(A3),-(SP) 
MOVE D7,-(SP) 
_RealFont 
TST (SP)+ 
RTS 


; Affiche le code ASCII (décimal) du 
; caractère sélectionné 


AfficheCode 
MOVE PositionND(A3),-(SP) 
MOVE #288,-(SP) 
_MoveTo 
PEA NcmbreDeci(A3) 
_DrewString 
RTS 


; Décimal -> Hexadécimal 


CcdeHexa 
CMPI.B #9,D0 
BGT @1 
ORI.B #$30,D0 
RTS 

@1 ADDIB #55,D0 
RTS 


; Pour police Chicago 12 points 
PoliceChicago 


CLR -(SP) 
_TextFont 
MOVE #12,-(SP) 
_TextSize 
RTS 

; Constantes 


RectFenetre DC 41,4,336,396 





RectTexte DC 
RectVisTexte DC 
RectDestText DC 
RectBouton DC 
RectCode DC 
RectCode2 DC 


2,2,271,390 
4,4,269,388 
6,6,450,376 
274,2,293,348 
274,350,293,390 
275,351,292,389 


Chainet DC.B ‘Police ‘ 
Chaine2 DC.B ‘ complète" 
TitreBouton  DC.B 0,'‘ 








| PaintMover et 
MacPlus 


PaintMover nécessite plus de 
128K0 pour fonctionner ; aussi, 
si vous avez réservé 768 Ko de 
cache mémoire, le programme 
se ‘plantera”, hélas sans mes- 
sage. 


Le 














Et pourtant, 
il fonctionne ! 


B.-P. Eminet et É. Vernier dans 
un livre consacré au Basic 
Microsoft sur Macintosh, publié 
aux éditions McGraw-Hill font 
référence au programme de J.- 
L. Bazanegue paru dans Pom’s 
16 (‘personnalisez vos dis- 
quettes Macintosh”),  pro- 
gramme qui ne fonctionnerait 
pas. 


Doit-on rappeler ici que : 

° ce programme était conçu 
pour le Basic 1.0 ; 

° à l’époque, le Basic 2.0 n’était 
pas diffusé ; 

* adaptation au Basic 2.0 a été 
publiée dans le numéro 17 ; 

° même ainsi adapté, ce pro- 
gramme a toutes les chances 
de ne pas fonctionner avec 
une hypothétique version 4.12 
ou 6.0 de ce même Basic. 








Moralité, quand on ne sait pas. 
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Ascense 


Nous vous présentons ici un 
sous-programme à variables 
locales, donc ‘transparent qui 
vous permettra d'initialiser, 
afficher et gérer un ascenseur. 
Comme il est inutile de présenter 
cette élément important de 
l'‘interface utilisateur’, nous 
passeront immédiatement à la 
méthode d'utilisation du 
sous-programme, baptisé “GF”. 


Le sous-programme “GF”, tel 
qu'il est-présentée lei est 
essentiellement destiné à gérer 
une fenêtre de texte. Le 
programme de démonstration met 
ceci en évidence en affichant des 
lignes de texte avec différentes 
polices et en différentes tailles, 
les déplacements verticaux de ces 
lignes suite aux actions sur 
l'ascenseur étant proportionnels 
aux caractères utilisés. Vous 
pourrez toutefois utiliser “GF” 
pour autre chose que du texte en 
remplaçant la routine ‘Afficher' 
par la routine de votre choix. 


Arguments 
d'appel de GF 


J1 s'agit d'une valeur permettant 
d'indiquer au sous-programme la 
tâche à accomplir, ceci en 
fonction des message passés par 
le système (ON DIALOG) : 


1 - Initialisation. Prise en 
compte des paramètres et de la 
taille de la fenêtre. Cet appel 
est nécessaire chaque fois que 
les paramètres ou que la taille 
de la fenêtre à gérer sont 
modifiés. 

2 - Rafraïchissement de la 
fenêtre. 

3 - Défilement de la fenêtre 
sur événement Souris. 


Paramètres 
d'initialisation 
(pour argument = 1) 


GFlim : numéro de la dernière 


urs en Basic 


Bernard Baz OS 


ligne affichable. (La numéro- 
tation des lignes commence à 
0). Une valeur négative 
indique qu'il ny a rien à 
afficher. 

GFtfont : police de caractères. 
Chicago par défaut. 

GFtsiz : taille des caractères. 12 
par défaut. 

GFtface : style des caractères. 
Standard par défaut. 

GFtitre$ : Titre. Pas de titre par 
défaut. 

GFpas : nombre de lignes (20) 
en recouvrement lors de 
l'affichage d'écrans successifs. 
Généralement 0 ou 1. O par 


défaut. 

GFxi, GF y1, GFx2, 
GFy2 : coordonnées (coin 
supérieur gauche, coin 
inférieur droit) de la 
sous-fenêtre gérée par GF. Les 
informations affichées à 
l'extérieur de cette sous-fenêtre 
ne sont pas affectées par le 
défilement. 
Les valeurs incorrectes 
sont automatiquement rame- 
nées aux valeurs par défaut, 
soit : O, 18, largeur de la 
fenêtre-16, hauteur de ]la 
fenêtre. 


Variable disponible après 
chaque appel à GF sur 
événement souris 
(argument = 3) 

GFmouse : 0 si l'événement a 
été pris en compte par GF, -1 
si l'événement ne concerne pas 
GF et peut être traité par le 
programme appelant. 


Sous-programme utilisateur 
appelé par GF : 
Afficher(x,v) 

L'appel de ce sous-programme 
correspond au traitement d'une 
action sur l'ascenseur. Il pourrait 
être remplacé par un autre 


sous-programme pour, par 
exemple, faire défiler du 
graphisme. 


x : numéro de la première ligne à 
afficher (commence à O). 

y : nombre de lignes à afficher (le 

curseur est positionné par GF} 


Remarques : la fenêtre à gérer 
doit être active et être la fenêtre 
courante d'affichage. Elle doit 
être ouverte avant l'appel 
d'initialisan on. 


Enfin, pour que la présentation 
soit plus agréable, utilisez plutôt 
les types 3 ou 4. Un bouton 
invisible (N° 255) est déclaré par 
GF afin d'inhiber le mode 
“scrolling” automatique. 


Toutes les variables de GF sont 
detype entier implicite (DEFINT 
a-2), 

Si les événements souris sont 
traités de façon asynchrone (ON 
MOUSE...) et non par “polling” 
(IF MOUSE(O)<>0..), ils 
doivent être inhibés (MOUSE 
STOP) pendant un rafraîchis- 
sement puis autorisés à nouveau 
(MOUSE ON) lorsque celui-ci est 
tenininé. 


Ceci évite le risque d'appeler GF 
sur événement souris alors qu'il 
est en train d'effectuer un 
rafraîchissement. 


Au retour de GF 3 le programme 
peut examiner la variable 
GFmouse pour savoir si 
l'événement a été traité par GF 
(GFmouse=0) ou si l'utilisateur 
n'avait pas cliqué dans la bande 
de défilement (GFmouse=-1). 


Dans çcedernier cas. le 
programme appelant peut traiter 
lui-même l'événement. Les 
DATA de GF sont lues une fois 
pour toutes lors du premier appel 
d'initialisation. 

Si le programme appelant a 
lui-même des DATA à lire, il 
devra les placer avant ou après 
celles de GF selon quelles seront 
lues avant ou après le premier 
appel à GF(1). 


GE 











Pom's n° 25 





47 





El 
a 


Démonstration du 
Sous-programme 
‘GF 

Note : pour un Mac 128K0, 


placez en début de programme : 
CLEAR ,11000,1024 


DEFINT A-Z 
WINDOW 1,,(2,23)-(508,330), 
3 


’ Fonctions appelées par GF 

DEF FNmin(x,y)=x<=y AND x © 
R y<x AND y 

DEF FNmax(x,y)=x>=y AND x O 
R y>x AND y 

GFLim=100 

GFtfont=3 

GFtitre$="Exemple d'utilisat 
ion" 

GFy2=WINDOW (3) -10 


GF l:'Initislisation 

TEXTMODE 1:MENU 6,0,1,"Car 
actères":MENU 6,1,1i,'"Chica 
go":MENU 6,2,1,"New York": 
MENU 6,3,2,"Geneva":MENU 
6,4,1,'"Monaco":MENU 7,0,1, 
"Style":MENU 7,1,2,"Standa 
rd":MENU 7,2,1,'"Gras'":MEN 
UN 31 "ItalTqUue 

MENU 7,4,1,"Souligné":MENU 
7,5,1,"Relief":MENU 7,6,1, 
“Ombre":MENU 7,7,0,"-":ME 
NU 7,8,1,"9 Points" :MENU 
7,9,1,"70 Points MENU”, 1 
0,2,"12 Points":ON MOUSE 
GOSUB EvtSou:MOUSE ON 


Attente: 

WHILE 1 

IF DIALOG(0)=S5 THEN GOSUB 

MajFen 

GOSUB EvtMen 

WEND 

MajFen: 

MOUSE STOP:TEXTSIZE 9:TEX 
TFONT 3:TEXTFACE O:MOVE 
TO WINDOW(2)-160,GFy2+5S:P 
RINT"GF V1.8 © Bernard BA 
2, 1986" 


GF 2: "Rafraîchissement 


MOUSE ON:RETURN 


EvtSou: 

GF 3:'Gestion souris 
IF GFmouse THEN BEEP 
RETURN 


EvtMen: 
w=MENU (0) :1IF w>0O THEN MENU 


wW,0,1:O0ON w-5 GOSUB Car,sS 
tyle 

IF aff THEN aff-0:GF 1:CLS: 
GOSUB MajFen 

RETURN 

Gar: 

IF MENU(1)=-1 THEN w=0 ELSE 
w=MENU(1) 

IF w<>GFtfont THEN si=1 

WHILE si:si=0 

MENU 6,FNmax(GFtfont,1),1:M 
ENU 6,MENU(1),2:GFtfont=w 
:aff=1 

WEND: RETURN 

Style: 

IF MENU(1)>7 THEN GOSUB T 
aille:RETURN 

IF MENU(1)=1 AND GEFtface>0 
THEN si-1 

WHILE si:si=0 

FOR i=2 TO 6:MENU 7,i,1:NE 
XT:MENU 7,1,2:GFtface-0:a 
ff=1 

WEND:1IF MENU(1})>1 
d 

WHILE si:si=0 

w=GFtface XOR 2”°(MENU(1)-2) 
: MENU 7,MENU (1) ,1-(w>GFtf 
ace) :GFtface=w:1lF GFtface= 
0 THEN MENU 7,1,2 ELSE M 
ENUN 7; 1/1 

aff=1 

WEND : RETURN 

Taille: 

IF MENU(1)<10 THEN w=MENU ( 
1) +1 ELSE w=12 

IF w<> GFtsiz THEN si-1 

WHILE si: si=0:FOR i=8 TO 1 
O:MENU 7,i,1:NEXT:MENU 7 
/MENU(1),2:GFtsiz=w:aff=1: 
WEND : RETURN 

SUB Afficher(li,nli) STATIC 

FOR i=0 TO nli-1:PRINT"Lign 
e";li+i:NEXT 


THEN si- 


END SUB 
‘CF V1.8 © Bernard BAZ, 1986 
SUB GF(w) STATIC 


ON w GOSUB GFinit,GEFmaj,GFs 
ou 

EXIT SUB 

GFinit: 

WHILE NOT init:init=-1 

SHARED GFlim,GFtfont,GFtsiz 
.GFtface,GFtitres$,GFpas,GF 
x1,GFx2,GFy1,GFy2,GEmouse 

DIM f1s(18),f1i(18),flsn(18) 
;flin(18),bde(4),asr(4),gr 
is(4),lin(4) 

FOR i=1 TO 18:READ fls(i):N 
EXT 

f1i(1)=16:f1i(2)=16:FOR i=3 
TO 18:fl1i(i)=fls(21-1i):NE 
XT 

FOR i=1 TO 14:READ flsn(i): 
NEXT 





flin(1)=16:flin(2)=16:FOR i- 
SATOLTS-Flin(i)=fdsn(21=1) 
:NEXT 

FOR i=1 TO 4:gris(i)=&h1144 
:lin(i)=255S:NEXT 

BUTTON 25570, 1e(0/ ON (070) 

WEND 

lfen=WINDOW(2) :hhfen=WINDOW 
(3) 

xfl=lfen-15S:yfli=hfen-1s 

bkde(1)=33:bkde(2)=l1fen-14:bde 
(3)=hfen-1S:bde (4)=ifen 

asr(1)=33:asr(2)=lfen-l4:asr 
(3)=49:asr(4)=lfen 

TEXTFONT O:TEXTSIZE 12 

tit$-GFtitres 

WHILE WIDTH(tit$)>-lfen-13:t 
1t$=LEFTS (tit$,LEN(titS)- 
1) :WEND 

xtit=(lfen-i-WIDTH(titsS)}/2 
:tsiz=GEFtsiz OR 12 AND GF 
tsiz=0:lim=GFlim:lil=0 

TEXTFONT GFtfont:TEXTSIZE 
tsiz:TEXTFACE GFtface:LO 
CATE 1,1:x1li=WINDOW(4):y1 
i=WINDOW(5) : LOCATE 2,1:h 
1i=WINDOW(S5)-yli 

IF GFxl<0O OR GFxl>=lfen-16 
THEN GFx1=0 

IF GFx2<=GFx1 OR GFx2>lfen-1 
6 THEN GFx2=lfen-16 

IF GFy1<18 OR GFyl>hfen-hli 
THEN GFy1=18 

IF GFy2<GFyl+hli OR GFy2>hfe 
n-1 THEN GFy2=hfen-1 

xli=GFxl+xli:yli=GFyl+yli:li 
pg=FNmax (1, (GFy2-GFy1+1)\n 
li) :pas=FNmin (FNmax (0,GFpa 
s),lipg-1):1ilm-FNmax(0,1i 
m-lipg+l1):x1rol=GFxl:x2rol 
=GFx2:ylrol=GFyl:y2rol=yIlr 
olthli*lipg-1:RETURN 

GFma j : 

TEXTFONT 0:TEXTSIZE 12:TE 
XTFACE O:PENPAT VARPETR( 
lin(1))j:PENSIZE 1,12:MOV 
ETO 1,2:LINETO xtit-6,2:M 
OVE 7,11:PRINT titS; :MOV 
E 6,-11: LINETO lfen-2,2: 
PENNORMAL 

LINE(0,17)-(1fen,17):LINE (x 
f1,17)-(xfl,hfen) :PUT (xfl 
LP) esE ls (UPS ET:2 UT x FA 
yfli),fli(1),PSET:IF lim> 
=lipg THEN si=1 

WHILE si:si=0:FILLRECT VA 
RETR(bde (1); ,VARETR(gris( 
1)):ERASERECT VARPTR(asr 
(1}) :FRAMERECT VARPTR(as 
r (1) }):WEND 

TEXTFONT GFtfont:TEXTSIZE 
tsiz:TEXTFACE GFtface:MO 
VETO xli,yli:IF lim>=0 TH 
EN Afficher l1il,FNmin(lim, 
lipg-1)+1 

RETURN 
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GFsou: 
w=MOUSE (0) :si=MOUSE(3)>=xf1l 
AND MOUSE(4)>=17:GFmouse 

=NOT si 

WHILE si AND lim>=lipg:si=0 

zon=1- (MOUSE (4)>32)-(MOUSE({ 
4)z=asr(1))-(MOUSE (4) >=as 
r(3))-(MOUSE(4)>=yfli) 

ON zon GOSUB Zonl,Zon2,Zon3 
-.Zon4,Zons 

WEND 

RETURN 

2on1l: 

PUT(xf1,17),flsn(l) :act=1 

WHILE act:1F 1il1>0 THEN li 
1=l1lil-1:GOSUB aff 

act=MOUSE(0)<0 AND MOUSE(6 
)<=32 

WEND 

PUT(xf1,17),flsn(1l} :RETURN 

Zon2: 

mou=MOUSE (4) :act=1 

WHILE act:IF 1i1>0 THEN li 
1=FNmax(lil-lipg+pas, 0) :GO 
SUB aff 

act=MOUSE(0)<0 AND MOUSE (4 
)=mou AND MOUSE (6)<asri(l) 

WEND : RETURN 

Zon3: 

PENPAT VARPTR(gris(l)}j:PEN 
MODE 14:FRAMERECT VARPT 
R(asr(l)):yl=asr(l) :act=1: 
si=l 

WHILE MOUSE(0)<O OR si:si= 
0 

y2=FNmax (FNmin(yl+MOUSE(6)- 
MOUSE (4) ,hfen-31), 33) 

IF y2<>asr(l) AND act THEN 
si=l ELSE asr(l)=y2: asr(3 


)=y2+16 

WHILE si:si=0:FRAMERECT VA 
RETR(asr(l)):asr(l)=y2: as 
r(3)=y2+16:FRAMERECT VAR 
PTR(asr(l)) 

WEND 

IF ABS(lfen-8-MOUSE(5))>30 

AND act THEN act=0:FRAM 

ERECT VARPTR(asr(l)) 

IF ABS(lfen-8-MOUSE(5))<=3 
O0 AND act=0 THEN act=1:FR 
AMERECT VARPTR(asr(l)) 

WEND 

lilw=(y2-33) flilm/(hfen-64) : 
IF act THEN si=1 ELSE asx 
(1)=vl:asr(3)=y1+16 

WHILE si:si=0:w=yl<>y2 AND 
lilw<>1i1 OR y1=33 AND li 
1>0 OR yl=hfen-31 AND lil 
<lilm:IF w THEN lil=lilw: 
PENNORMAL:GOSUB aff ELS 
E FRAMERECT VARPTR(asri 
1)) 

WEND : PENNORMAL : RETURN 

Zon4 : 

mou=MOUSE (4) :act=1 

WHILE act:IlF lil<lilm THEN 

1i1=FNmin (lil+lipg-pas,li 

1m) : GOSUB aff 

act-MOUSE(0)<O AND MOUSE(4 
)=mou AND MOUSE (6)>=asr(3 
} 

WEND : RETURN 

Zons: 

PUT(xfl,yfli) ,flin(l):act=1 

WHILE act:IF lil<lilm THEN 

lil=-1i1+1:GOSUB aff 

act=MOUSE(0)<0 AND MOUSE (6 
)>=yfli 


= 
<a 


WEND 

PUT(xfl,yfli),flin(l):RETUR 
N 

aff: 

asr(1)=(hfen-64)*l1i1/1ilm+33 
:asr(3)=asr(l)+16:FILLREC 
T VARPTR(bde(1)},VARPTR( 
gris(1)):ERASERECT VARPT 
R(asr(l)):FRAMERECT VARP 
TR(asr(l)):ON zon GOSUB A 
ffl,Aff2,Aff2,Aff2,Aff5:RE 
TURN 

Affl: 

SCROLL(xlrol,yirol)-(x2rol, 
y2rol),0,h1i:MOVETO xli,y 
li:Afficher lil,1:RETURN 

Aff2: 

LINE(xlrol,ylirol)-(x2rol,y2r 
ol),30,bf:MOVETO xli,yli: 
Afficher l1il,1ipg:RETURN 

AffS: 

SCROLL(xlrol,ylrol)-(x2rol, 
y2rol),0,-hli:MOVETO xli, 
ylithli*(lipg-1l): Afficher 
lil+tlipg-1l, 1:RETURN 

DATA 16,16,-1,£&8h8001,&h8101, 
&h8281,&h8441,£&h8821,&h901 
i,&hA009,ehF83D,€&h8821,6h8 
821,6&h8821, &h8FE1, &h8001,& 
h8001,-1,16,16,0,0,0,&h100 
,&h380,&h7C0,&hFE0, &hlFFO, 
&h7CO0, &h7C0, &h7C0, &h7C0 

END SUB 





Compatible incompatible ? 
Suite. 
(première partie dans le numéro 24) 


Particularismes 


Nous ne pouvons, faut de place, citer les 
paticulansmes de tous ls logiciels sur le 
MacPlus, en dehors de leur appartenance 
aux Cinq Caégores décrites dans £ nuno 
24. C’est pourquoi nous cilons seulement 
dans la liste ci-dessous les particulansmes 
des logicikls ks plus coanus. Pour les 
logiciels lités dans Pom’s 24, quand in 
numéro de version est indiqué, cela signife 
en géuéral ks vaons anlfreures 
posent encore plus de problèmes, ou ne 
marchent pas du tout, avec le MacPlus. 


Basic 2.0 : selon Apple, il appartient à la 
catégorie ] ; selon nous, à la catégorie 3,le 
Basic et les fichiers devant ête au niveau O 
de Jahirarchie. 

Jazz : ne pas metre à jour la disquetk 
originale ; constituer une nouvelle d'squetk 
de démarrage en 800Ko avec le système 
MacPlus ; y transfer ks fichiers Convert, 
Jazz Ressources, Jazz System Updak de la 
disquetéæ de démarage onginale : le fichier 


Jazz Resseurces doit être dans le dossier 
système. 

MacDraft : ræconnst en partie le HES, 
mais ne sait pas sauvegarder un document 
dans un dossier (le met au niveau 0). On 
peut uëliser une disquette 800Ko à condi- 
üon de la formater en MES. 

MacTerminal 1.0 : mis àjour de la dis- 
quete possible, à comdikon de garder l’an- 
cieu clavier. La version 2.0 devrait être dis- 
ponible en mai 86. 
MacTeacks : es Gctuers auliares doivent 
être dans k dossier sySère. 

Micrsoft File : problèmes de dassiers avec 
les index Il est donc préférable de travailler 
auniveauGdelahrarchie. 

Muïtiplan : la version 1.10, sortie récem- 
ment et échangeable pour 250 F auprès de 
Mierosoft, est compatible tous Macs, résout 
k problème de la version 1.02 avec le 
MacPlus (limite à 7K !) et ajoute les 
foactocs fnanaères. 

Oonts3 : légers problèmes avec le HFS ; 
ls fichier auxhæres deivent ête dans k 
dossier sys ème (Ormis3 Info). 
Orthogiciel : neuvelle version attendue en 
jum86. 


Overvue 2.0 : selon Apple, appartient à la 
catégorie !. En fait, ne tœume qu'avec son 
arx:icn sysère. 

PageMaker 1.1 : légers problèmes avec ke 
HFS. Les fichiers doivent ètre dans k 
mème dossier que l’applicaïon. En cas 


d’utlisabon avec la LasærWniter, 
l'mpnamt doit absolument être bapiséæ 
“Laser Writer”. 


SmoothTalker 2.0 : aucun problème seion 
Apple (cafégornie 1). Selon nous, plante 
compRtement la aachine. 


Switcher 44 : ls applicæous d’une liasse 
doivent être à la racme, Refuse le Fmrer. 
Confiits ec le cache.mémoie, qui doit 
donc être désactivé. Version 4.9 entière- 
ent compatible aÆndue. 
ThinkTank : problèmes avec ie cache- 
mémoire. L'impressoa peui poær des 
problèrres aléaioires non résolus. 
Word 1.02 : ne reconnait pas ke pavé 
numénque, mais accepk les chiffes du 
clavier principal Nouvelle versimo mces- 
samment Le glossaïre doit êtedansle dos- 
sier de l'application. 

Hervé Thiriez 
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Des essais rapides 


Lors de la mise au point d'un 
programme en assembleur, le passage 
par le ‘Finder’, au retour, fait perdre du 
temps. Pour éviter cette étape, on peut 
insérer ce petit segment de code à la 
place du classique RTS de fin de 
programme : 


LEA Param,AO 
LEA Program,Al 
MOVE .L Al, (AO) 
_Launch ; $A9F2 
Param BEL 0 
DC 0 
Program DC.B A UEGIEL, 10 


Ceci provoque le lancement de l'éditeur. 


Un caractère retrouvé 


Si vous êtes passé du Mac au MacPlus, 
vous avez certainement perdu le 
caractère “É”, que l'on obtenait avec la 
séquence de touche : 

Option ‘ E 

Sur le Mac Plus, il faut faire : 

Option 1 E 

Qui a retrouvé la puce “+” ? 


N.D.LR. : le ‘Mega-truc' en la 
matière, c'est l'accessoire “ad litterar” 
publié dans ce numéro (dommage pour 
l'accessoire “clavier”, qui a quasiment 
disparu des disquettes de tous ceux qui 
ont essayé “ad litterar" ). 


Clavier, clavier Plus ? 


Si vous écrivez une application qui doit 
pouvoir fonctionner indifféremment sur 
un Mac ou sur un Mac Plus, il peut 
être intéressant de savoir à quel type de 
clavier on a affaire. Pour cela, on peut 
lire le contenu de l'adresse $21E, qui est 
égal à 11 en cas de présence d'un clavier 
"Mac Plus”. En Basic : 


IF PEEK(£&h21E)=11 THEN 
MacPlus ELSE Mac 
En assembleur : 


CMET.B 
BEQ 


#11,$21E 
MacPlus 
Mac 


Le collage dans Excel 


Nous avons déjà constaté plusieurs 
bugs dans Excel; aucun d'entre eux n'est 
grave, mais ils sont quelque peu 
énervants. Un des plus originaux touche 
le Collage Spécial, qui - très 
intelligemment — permet de copier 
seulement les valeurs, les formules ou 
les formats mais, moins 
intelligemment, ne fait pas la 
distinction entre les formats et les 
encadrements. 


Le bug est le suivant. Quand on copie 
le vecteur : 


250125 | 2502" | 
pour effectuer un collage spécial des 
valeurs seules et avec soustraction vers 


le vecteur : 


SES RUE 


on obtient le résultat : 

Pen 25 PeSeSr 
où la troisième valeur est erronée, car la 
cellule récipiendaire était vide. 


Le seul remède que nous pouvons vous 
conseiller est de mettre des 0 au lieu de 
blancs dans les cellules appelées à 
recevoir des informations par collage 
spécial associé à une opération. 


dis 


ANUTANUITORRE | 


Au sommaire 


en Basic, Système 


: wFfinder, Ad 
version 3.2c et 





Touches spéciales 
Mac Plus 


Le Mac Plus est arrivé avec quelques 
touches en Plus par rapport au 
Macintosh (sans parler des touches 
‘doublées du pavé numérique). On 
notera que les touches communes aux 
deux appareils ont fort heureusement 
gardé les mêmes codes ASCII. Voici 
ces codes : 





ROM 64Ko ou 128Ko ? 


Le Macintosh Plus ne sera bientôt plus 
seul à disposer d'une ROM de 128K0. 
En effet, le Macintosh 512/800 arrive. 
avec 128Ko de ROM. Les programmes 
qui aiment savoir Où ils sont peuvent 
tester le contenu du mot de 16 bits situé 
à l'adresse S28E, qui est égal à S7FFF 
(32767) si l'on est en présence d'une 
ROM de 128K0. 


Exemple : 


IF PEEK(£<h28E) 4256+ 
PEEK(&h28F)=32767 THEN 
ROM128 ELSE ROM64 





éd 


ETES 
les ascenseurs 
Finder 5,3 


uctte 


litteram, 








Francophonisme.. Suite. 


Suite à la question métaphysique posée dans le numéro 24 — rappelons qu'il s'agissait de trouver un exemple de texte 


français comportant tout l'alphabet en une phrase aussi courte que possible -, Georges Boyer, un lecteur d'Annecy nous 


propose : “Portez ce bol de vieux whisky aux juges qui fument” 
Il nous suggère de le traduire pour les américains par “Bring this cup of old whisky." ! Les habitués des connexions 
Transpac connaissent certainement le : “Voyez le brick géant que j'examine près du whar f”. 
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Gagner 56 Ko ? : 


Jean-Luc Bazanegue 


Le Finder du Macintosh est une application 
sophistiquée qui autorise une gestion complète des 
fichiers placés sur nos disquettes. A l'usage, on 
s'aperçoit que la plupart des fonctions sont rarement 
utilisées lorsqu'on emploie, par exemple, des 
utilitaires (Paint Mover, REdit... ). De plus, le passage 
par le Finder prend du temps et, dans le cas de 
programme réclamant beaucoup de place sur la 
disquette (comme MacPaint), il peut être intéressant 
de récupérer la place qu'il occupe. 


Nous vous proposons donc un “micro-Finder”, qui 
ne conserve que les fonctions essentielles de son 
grand frère (sélection d'une application et 
éjection/redémarrage). On utilise pour cela la fenêtre 
| de sélection du système (dont l'aspect peut varier d'un 
système à l'autre), ce qui nous permet de gagner 
56Ko sur chaque disquette et, du même coup, 
beaucoup de temps lors du passage d'une application 


à l'autre. n 
Fichier re 
‘ ; 3 
Finder.Job 08000010  O7FFFFEO 
Am  pFindorAsm Emæc Edit 04000020  O7FFFFEO 
Link HFinderLink Exec Edit 
RMeker  uFinderR Finder Edit 00000000 00000000 
00000000 00000000 
Fichier A cn 
C3 Q s. F 
uFinder.Link 00000000 00000000 
00000000 00000000 
À 00000000 _07FFFFEO 
ns Finder.Code CRRRRADe CERTEPRÉ 
Type TEMP" i OFFFFFFO  OFFFFFFO 
$ OFFFFFFO  OFFFFFFO 
OFFFFFFO  OFFFFFFO 
: OFFFFFFO  OFFFFFFO 
L ichier OFFFFFFO  OFFFFFFO 
1 Finder.R’ OFFFFFFO  OFFFFFFO 
, OFFFFFFO  O7FFFFEO 
Finder O7FFFFEO 07FFFFEO 
APHRENP INCLUDE yFinder.Code 


Type HFND = STR 


0 Source 
4Finder - Pom'8- Juin 86 ource 


rh 
Typs BNOL ‘uFinder.Asm' 
.128(32) ; Roulines utilisées: 
A ê rap  _Eiect SA017 
.Trap _FlushEvents  $A032 
0 128 TraP  _GelCursor  SA9B9 
FREF .Trap _ImCuisor $SA850 
0 128 .Trap _IniDialogs SA97B 
Type FREF _.Trap _AnitFonts $SA8FE 
,128(32) .Trap _initGraf SABGE 
APPL Q .Trap _InitMenus $A930 
Type ICN# = GNRL .Trap _InitWindows  $A912 
,128(32) .Trap _Launch $a9F2 
.Trap _Pack3 $ASEA 
00000000 00000000 rap _SelCursor  $A8S1 
00000000 00000000 dE = ns AE 
00000000 00000000 È —S81Ve 
00000000 00000000 LE RTE SACC 
00000000 00000000 : Equrvalences : 
00000000 00000000 Gers EQU 0 
Volume EQU 6 
00000000 07FFFFEO 
08000010 _ O8FFFF+0 came CO 
SFGetF'le EQU 2 
09000090 09024090 eNamertr EQU 312 
091E7890 09366C90 joVOrvNum EQU  $16 
095E7A90  090C3090 AppParmHande EQU  $AEC 
09000090 CO8FFFF10 walchCursor EQU 4 


IMAGEWRITER 


SYSTEM 


IMAGEWRITER SYSTEM 


8 & 


MacWrite MacPaint 





ioVQOEISZe EQU $40 

: Initiaïsations : 
PEA A(AS) 
_tnitGref 
_tnitFonte 
MOVE.L  #$0000FFFF.D0 
_FiuehEvente 
_initWinéowe 
_initMenue 
CLRL {SP) 
_initDietogs 
_TElnit 
_{ntiCureor 

; Affichage de l'a fenéire d'e sélection 

; standard 
MOVE #80.-(SP) 
MOVE (SP),-(SP) 
CLRL -{SP) 
CLRL -(SP) 
MOVE #1.-(SP) 
PEA type 
CLRL -(SP) 
PEA reponse(A5) 
MOVE #SFGetFile,-(SP) 
_Pack3 

. Curseur en forme de montre 
MOVE #walchCursor,-(SP} 
__GeliCureor 
MOVEAL (SP}4+,A2 
MOVEL  (A2).4SP) 
_SetCursor 

Prépa b larpon 

; d'entrées/sories 
LEA 10.40 
CLAL oNamePtr(A0) 


® démarrez le sysème avec la 


suppirez le vrai Finder ; 





LFINDER «3 


Finder 


TST Repoñss+rGaod(A5) 
BNES @1 

: Sion demande Anruks”, es 

: Wequeltes sont éjectées et on 

; edémane le système 
MOVE #-10VOrvNum(AC) 
_Elect 
MOVE #-2.ioVOryNum(A0) 
_Elect 
JMP $40000A 

; Mdique le vo lume où se trouve 

; l'applCahon sélectionnée comms 

: tant le volume Par dé laut 

@1 MOVE Reponse+rVolume(A5), 

ioVDrvNum(A0) 

_SelVol 

; Pour indiquer à rapplicalion 

; sétectionnée qu'il n'y a rien à ouvrir au 

; impamer (voir pom's24} 
MOVEQL #4,00 
MOVE.L  AppPannhHandie,A0 
_SetHendieSize 
MOVEL  AppParmHandie, AO 
MOVE.L  (AO).AO0 
CLR.L (A0) 

; Lens fl'appicalion dererdés 
MOVE #0,-(SP) 
PEA reponse+/Neme(AS) 
MOVEL  SP,A0 
_Leuneh 

+: T &MPORS ef co netantes 

type DC.B  ‘APPL' 

19 DCB  WbVOEISZe,0 


Reponse DSB 42 


Comment faire ? 
vous avez la disquette Mac25: 


disquetæ Mac 25 ; 


insérez la disquette sur laquelle vous désirez placer ke HFindec ; 


faites une copie du nFinder surla disquet destination ; 
supprimez le'}L'de}1Finder. 

vous n'avez pas la disquette Mac 25: 

munissez-vous de votre système de développement 68080 ; 
e saisissez les fichiers etle source listés ci-contre ; 

° lancer l'EXECut.on du fichier ‘uFinderJeb’ ; 

faites alors Comme si vous aviez ladisquette 25. 
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Tri, Chaînes, Index 


eaucoup de programmes 

Basic nécessitent des 

opérations de ti sur les 

éléments d'un tableau. 
Le plus souvent, il s'agit de 
tableaux de chaînes de caractères. 
Un tableau à deux indices peut 
mémoriser les adresses de clients, 
le premier indice repère la 
position de l'adresse du client 
dans le tableau, le deuxième 
permet d'accéder aux différentes 
tubriques de son adresse. Si le tri 
sur la rubrique ‘nom’ est 
effectué, il va de soi que les 
autres rubriques associées à un 
nom doivent suivre les 
déplacements imposés par la 
technique de tri choisie. Cette 
méthode implique une perte de 
temps importante du fait que tous 
les éléments du tableau participent 
à l'opération de tri. Pour éviter ce 
grand “"chambardement", on 
décide de ne plus modifier le 
tableau. L'ordre des éléments du 
tableau de chaînes est enregistré 
dans une tableau de nombres, 
appelé table d'index. L'accès à la 
liste triée se fait alors via cette 
table d'index. Considérons un tri 
sur le nom des pays du tableau 
PAY$. 


“Tableau PAYS 
P% après ti 
Italie Rome 


Pays-Bas Las Haye 
Belgique Bruxelles 


France Paris 


Danemark Copenhigue 
Luxembourg Luxembourg 
Allemagne Bonn 
Grande-Bretagne Londres 


ren 
ND He © © © À U à © 


ASoVepives 


I1 suffit alors de lire la table 
d'index P% pour obtenir la liste 
des pays classés par ordre 
alphabétique : 

FOR I=1 TO N 

J = P#(I) 

PRINT PAYS(J,0); TAB( 20); 
PAY$(J,1/): TAB( 34};PAYS(J, 2) 
NEXT I 


Tri par insertion 


Cette technique de tri peut se 
comparer avec l'insertion des 
cartes lors d'une donne. Dès la 
deuxième carte, le joueur insère la 
carte donnée en la comparant à la 
(aux) précédente(s). Tant que la 
carte donnée est inférieure à la 
carte comparée, les cartes sont 
décalées vers la droite et la 
comparaison se poursuit vers la 
gauche. Dès que la carte donnée 
est supérieure ou égale à la carte 
comparée, la carte donnée est 
insérée à droite de la carte 
comparée. Le programme 
TRICHAINE.DEMO illustre ce 
type de tri. 


Le tri par insertion est assez 
performant (au niveau de la 
rapidité) compte tenu du peu 
d'instructions qu'il requiert. 
Notons cependant que l'élément 
d'indice O doit contenir la plus 
petite valeur pour le type de 
variable triée. Ainsi, pour des 
chaînes de caractères, la chaîne 
vide est cette valeur qui est placée 
automatiquement lors du 
dimensionnement du tableau. 
Pour un tableau de nombres 
positifs, O est une valeur 
inférieure ou égale à tout nombre 
positif. Par contre, pour un 
tableau de nombres positifs, nuls 
ou négatifs, il est obligatoire 
d'assigner respectivement -32767 
ou -10E38 à l'élément O du 
tableau d'entiers ou du tableau de 
réels. L'élément O du tableau ne 
peut pas être utilisé pour inscrire 
des informations à trier. 


Le tri du tableau PAYS peut 
s'écrire en Basic (voir le 
programme TRI CHAINE 
BASIC.I.1) comme ceci: —} 


Tri en langage 
machine 


Au niveau de la structure, le 
programme TRICHAINE.C est 
l'équivalent du programme 
précédent mais il est écrit en 


ee 





Bernard 
Lambillon 


codes 6502. I1 occupe 215 octets 
de mémoire. Il est bien sûr plus 
rapide : une liste de 500 noms de 
24 caractères est triée en 10 
secondes (cf. TRICHAINE.1.2) 
au lieu de 35 minutes en Basic ! 


La syntaxe est la suivante : 
&N,/PAYS$(1,/CLE),P%(1) où N 
contient le nombre d'éléments à 
trier et CLE vaut 0,1 ou 2 selon 
que le tri s'effectue sur le nom, la 
capitale ou l'abréviation du pays. 
Voici d'autres exemples : 

& 500,a$(1),1X%(1) 

& t(0),ad$(1,3),h%(1,3) 

Le chargement du programme 
s'effectue automatiquement à 
l'aide des programmes TRI.DOS, 
INIT.C ou TRIPRO.NIT.C 
suivant que le système est géré 
sous DOS 3.3 ou ProDOS. Dans 
la version DOS, le chargement 
doit s'effectuer avant toute 
création de chaînes de caractères 
car le programme se loge sous le 
HIMEM. Par contre, en ProDOS, 
le programme TRICHAINE.C 
est chargé entre le Basic.System 
et sa mémoire tampon d'usage 
général sans altérer les zones 
réservées au Basic. 


Le programme source, écrit avec 
l'assembleur ProCODE, est 
documenté de telle sorte que le 
lecteur puisse faire le parallèle 
entre le programme de tri en 


900 PS(1)=1 Init table index 


1000 FOR I =2 TON 


1010 XS = PAYS(I,CLE} : 
PB (I) = I 


1020 POR J = 1 70 0 srep -1 PME inerne 


Entier él, comparé 


1030 JJ = PR{J) 


1040 ON 2 - (x$ > PAYS 
(JJ,CLE)} GOSUB 200 
0.300û 


Si... ALORS insertion SINON décalage 
1050 NEXT J 


1060 NEXT 1! 











2000 REM Insertion] [3000 REM décalages 
2020 P$(J+1} » I 3020 P%(J+1} = JJ 
2030 J = © 3030 RETURN 


2040 RETURN 
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Basic et celui-ci. Il suffit de se 
rappeler que chaque élément d'un 
tableau de chaînes occupe 3 octets 
et que chaque nombre d'un 
tableau d'entiers en nécessite 2. 


| Tableau P% 


1538: 
15324: 
1532: 
1540: 
154C: 00 00 


00 00 
40 OI 
oû@ 00 


Valeur 0 
Valeur 1 
Vaieur © 


élément 0: 
élémert li: 
élément 2: 


Fcintesr 61 0 de PAYS (14CE) 
Peinteur él 1 de PAYS (1401) 


Pcirteur él 1 de P# (153) 


Kb d'éléments à trier 1000A) élémcnc 10: Valeus 0 





Zone chaînes de caractères (dons les 
DAT As du programme) 







longueur 


Tableau PAYS 





1201: 49 74 61 6C 69 65 22 2C 22 … 


LR L LE Me Tr — 

50 61 79 7320 42 61 73 22 2C 22. 
PS ET ER ET UT SSS 
42 65 6C 67 69 71 75 65. 

Lt. CHR re CONTE 

46 72 61 6E 63 65. 


D a CE 


49 72 6C 61 6E 64 65. 
1 2 2 72 d'ie 


Longueur-Pointeur 









1218: 





é10 
éi1 
612 
é13 


Vide 
Italie 
Pays-Bas 
Belgique 


14CE£: 
14DI: 
14D4: 
14€C: 
14DA: 
14EC: 97 28 13 


00 00 62 
06 01 1z 
08 18 12 
07 28 13 






adresse adresse 
basse de | haute de 
stockage | stockage 


Voici la situation avant le tri 
(programme TRI.CHAINE.1.0) : 





1238: 






1250: 







6110. Irlande 






1328: 











Programme Programme 
‘TRI.CHAINE.MENU' ‘TRI.CHAINE.1.0° 
500 REM -- MENU -- 
10 REM #*+* TRI,CHAINE.MENU *** Al 6 10 REM #*** TRI.CHAINE. 1.0 *** 
CNE 520 VTAB 2: HTAR l: PRINT LS; 2 
30 GOSuB 70: REM INITIALISATION RECRÉER TATCEE 30 GOSUB 150: REM /// INIT PROGRAMME 
40 IFR> O THEN GOSUB 720 SA OMRERTAT 171 
50 HOME : END PHOATE RE 40 : 
60 : DO0N ERTNTANSE TEE NET” 50 REM ::: REPETER ::: 
70 REM /// INITIALISATION /// LC CRE SEE EAN IQ SE © 4, 60 : 
80 : PAM EE SERENSELE CRCRT/ 70 GOSUB 670: REM /// MENO /// 
90 PRINT CHR$S (21) BRUN ERTNTEEEE 80 IF NOT FINI THEN 50 
ne 600 NEXT I D € 
210 REM -- LECTURE DATA -- 610 : 100 REM ::: FIN REPETER ::: 
Fr 620 REM -- CHOIX -- ae 
130 DIM MS(5) EDS 120 IF CAS = 4 THEN 1500: REM <RETOU 
140 FORI=0TOS5 640  VTAS 24: HTAB H R MENU> 
150 READ MS(I) 650 GET R$:R = VAL {R$) 130 END 
TR 660 IFR> =i ANDR< =40OR RS = 140 : 
170 DIM L$(8) CHRS (27) THEN 700 150 REM /// INIT PROGRAMME /// 
180 FOR I =1 TO8 RON PRINTRERSS 160 : 
190 READ L$(I) 680 GET R$:R = VAL (R$) 170 REM -- DOS OU PRODOS -- 
200 NEXT 1 690  GOTO 660 180 : 
D 8 700 RETURN : REM <INITIALISATION> add m6 > Ha DL) & DL 
220 REM -- DOS/PRODOS -- 710 : 200 ON 2 - DOS GoStB 530,530 
230 : 720 REM /// PROGRAMME /// 210 : 
240 DIM RUS(1) 730 : 220 REM -- CAR, DE CONTROLE —- | 
250 READ RUS{0),RUS(1) 740 VTAB 5 * R - 1: HTAB 12 230 : 
260 PRO = PEEK (48896) = 76 750 INVERSE 240 B$ = CHRS (8) | 
270 : 760 PRINT MS(1 + R) 250 BR£ = CHRS (7) 
280 REM -- CONSTANTES -- 770 NORMAL 260 : 
290 : 780 PRINT BS/RUS(PRO):MS(1 + R) 270 REM -- TABLES DES PAYS -- 
300 D$ = CHR$S (4) 790 RETURN : REM <PROGRAMME> 280 : 
310 BR$ = CHRS (7) 800 : 290 DIM PAYS(10,2),P#(10) 
320 15 = " 810 REM #f#ff DONNEES FIXES fé# 300 : 
" 820 : 310 READ N 

330 L1 = 20 - LEN {MS(0)) / 2 830 DATA "TRI DE TABLFAU DE CHAINES" 320 FORI=1TON 
340 L2 = LI + ( INT (Ll) / 2 < > Li / 840 DATA "VOTRE CHOIX (1-4 OÙ ESC): 330 FOR J=0T02 

2) S. 340 READ PAYS(I,J) 
350 : 850 DATA "TRI.CHAINE. 1.0" 350 NEXT J 
360 REM -- TITRE -- 860 DATA "TRI.CHAINE.1.1" 360 NEXT I 
370 : 870 DATA "TRI. CHAINE. 1.2" 370 : 
380 TEXT : HOME 880 DATA “TRI.CHAINE.DEMO" 380 RENM -- TABLE DES MESSAGES -- 
390 INVERSE 890 DATA "tri d'un tableau 10X3* 390 : 
400 PRINT SPC( L1/;:MS${(0); SPC( L2) 900 DATA "en langage-machine* 400 DIM M$(5) 
410 : 910 DATA "tri d’un tableau 10X3" 410 FORM=0T0S5 
420 REM -- BAS ECRAN -- 920 DATA "en Basic.” 420 READ MS(M) 
430 : 930 DATA "tri de 500 nos de 24 car." 430 NEXT M 
440 VTAB 24: PRINT SPC{ 39) 940 DATA “en langage-machine (10 sec. 440 : 
450 POKE 2039,32 Ji 450 REN -- AFFICHAGE LISTE À TRIER 
460 VTAB 24: HTAB 5: PRINT MS$(1}; 950 DATA “Animation de 14 technique" 460 : 
470 H = 5 + LEN fM$S{(1)) 960 BATA “de tri par insertion” 470 PRINT CHRS$S {2]}): REM <CARTE 80 
480 NORMAL 970 DATA "RUN" COL. DESACTIVEE> 
490 : 980 DATA "RUN BASIC/" 480 TEXT : HOME 
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54 


490 


500 
510 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 

670 
680 

690 
700 

710 

720 

730 


740 
750 
760 
770 
780 
790 
900 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 


920 
930 
940 
950 
960 


970 
380 
990 


1000 


V = 1: GOSUB 1330: 
HAGE LISTE /// 
POKE 34,12 
RETURN : REM <INIT PROGRAMME> 
REM /// INIT DOS /// 

PRINT CHR$S (4); "BRUN TRI.DOS.INI 
MC" 

D$ = 
RETURN : 


REM /// INIT PRODOS /// 


REM FY/SAPFIC 


CHRS (13) + CHR$ (4) 
REM <INIT DOS> 


D$ = CHR$ (4) 

PRINT DS$S;"PREFIX CODE.MACHAINE" 
PRINT D$; "BRUN TRI.PRD,INIT.C" 
PRINT D$;"PREFIX /" 

RETURN : REM <INIT PRDDOS> 
REM /// MENU /// 

REM 


ROME 
FOR M = 
VTAB 13 
{Me 
NEXT M 


REM —= 


—— AFFICHAGE MENU -—- 


0 ToS5 


+ 2 * M: HTAB 5: PRINT M$ 


INIT CHOIX -- 
PUKE 49168,0 

PRINT 8$;B$; 

REM 
GET R$ 

IF ASC (RS) < 32 THEN RS = *“?" 
PRINT RS$S;:BS$S; 
CI = (R$ = "PT OR R$ 
C2= (R$ = "C"ORRS 
C3 = (R$ = "AT CR RS 
C4 = (R$ = "MT OR R$ 
Ca. (RS MS OR RS 
CAS = CI PiC2L 4 27. C3 
ARCS ES 

IF CAS = O0 THEN 810 
REM 
ON CAS GOSUB 990,990,990,1150,115 
0 
RETURN : 


—— CHOIX —— 


"p") 
…) 
2 
rm) 
_ 
M Cd n 


fl 


—- TRAITEMENTS -- 


REM  <AFFICHAGE MENU> 
REM /// TRI /// 


1010 CLE = CAS - 1 


1020 & N,PAYS(1,CLE),P#(1) 

1030 TRIE = 1 

1040 : 

1050 REM -- AFFICHAGE LISTE TRIEE -- 

1060 : 

1070 BOME 

1080 V = 13: GDSUB 1330; REM /// AFFI 
CHAGE LISTE /// 

1090 : 

1100 REM -- ATTENTE TOUCHE -- 

1110 : 

1120 GOSUB 1420: REM /// TOUCHE /// 

1130 RETURN : REM <TRI> 

1140 :; 

1150 REM /// FINI /// 

1160 : 

1170 FINI = i 

1180 POKE 34,0 

1190 VTAB 23 

1200 ON 2 — DOS GOSUB 1230,1280 

1210 RETURN : REM <FINI> 


REM /// FIN DOS /// 


HITSEM: 38400 
RETURN ; REM <FIN DOS> 


REM /// FIN PRODOS /// 

CALL 48888: REM <LIBERATION DES 
ZONES ALLOUEES ($BEF8: FREEBFR) 
RETURN : REM <FIN PRODOS> 

REM /// AFFICHAGE LISTE /// 
VTAB V: 
FOR I =1TON 
J = P$(I} * TRIE + I * NOT TRIE 
PRINT PAYS{J,0); TAB( 20);PAY$S(J 
»1)7 TAB( 34);:PAYS(J,2) 

NEXT I 
RETURN : 
REM /// TOUCRE /// 


PRINT CHR$S (7); 

FOKE 49168,0: WAIT 49152,128: PO 
KE 49168,0 

PRINT CHR$S (7); 

RETURN : 
REM /// RETOUR MENU /// 
READ M$ 

POKE 34,0 

VTAS 1: PRINT 

ON 2 - DOS GOTO 1560,1570 
PRINT D$:"RUN";MS 

PRINT DS; "RUN BASIC/";MS 


REM ii DONNEES FIXES ### 


HTAB I 


REM AFFICHAGE LISTE 


REM <TOUCHE> 


DATA 10 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 


-- NOM DES PAYS -- 


“Italie"“,"Rome“,"I" 
"“Psys-Bas","La Haye", "NL" 
“Belgique”, "Bruxelles","8" 
"Erance", "Paris", "FR" 
"Danemark", "Copenhague", "DK 


DATA "Luxembourg", "Luxembourg", 
L" 
DATA 
7 "DT 
DATA 
-MOEBS 
DATA 
DATA 


REM 


“Allemagne fédérsle”, "Bonn" 


“Grande Bretagne", "Londres" 


"Grèce"”,"Athènes", "G" 
“Ir lande", "Oublin", "IRL" 


—- MESSAGES -- 
DATA 
DATA 


<P>ays." 
<C>apitale." 
<A>bréviatio 


“Tri Par svass 
ÉTrINDAr eee 
Tri par esse 


“Retour au ... <M>enu." 
DATA .:...-:-. --<S>ortie. 
“Votre choix! <?7>" 


== MENU == 


"TRI.CHAINE.MENU* 


A — 





Programme 
‘TRI. CHAINE.1.1’ 


10 REM *** TRI.CHAINE.1,1 #** 


20 : 

30 GOSUB 150: REM /// INIT PROGRAMME 
VAT 

40 : 

SOMVREM : TV REPETERS:;: 

60 : 


70 GoSuB 490: REM /// MENU /// 
80 IF NOT FINI THEN 50 


99, 1= 

1600 REM ::: lIN REPETER ::? 

110 # 

120 IF CAS = 4 THEN 1580: REM <RETOU 
R MENU> 

130 EN 

140 : 

150 REM /// INIT PROGRAMME /// 

160 : 

170 REM -- CAR. DE CONTROLE -- 

180 : 

190 DS = CHARS (4) 

200 B$ = CHRS (8) 

210 BR$S = CHRS (7) 

220 : 

230 REM -- TABLES DES PAYS -- 

240 : 

250 DIM PAY$S(I0,2),P#(10) 

260 : 

270 READ N 

280 FORI=ITON 

290 FOR J = 0 TO 2 

300 READ FAYS(I,4J} 

310 NEXT J 

320 NEXT I 

300$ 

340 REM -- TABLE DES MESSAGES -- 

350 : 

360 DIM MS(5) 

370 FORM=07T05 

380 READ MS(M) 

390 NEXT M 

400 : 

410 REM -- AFFICHAGE LISTE À TRIER 

420 ; 

430 PRINT CHRS$S (21}: REM <CARTE 80 
COL. DESACTIVEE> 

440 TEXT : HOME 

450 V = 1: GOSUB 1410; REM /// AFFIC 
HAGE LISTE /// 

460 POKE 34,12 

470 RETURN : REM <INIT PROGRAMME> 

480 : 

490 REM /// MENU /// 

500 : 

510 REM -- AFFICHAGE MENU —— 

520 : 

530 HOME 

540 FOR M=0TOS 

550 VTAB 13 + 2 * M: HTAB 5: PRINT MS 
{M ; 

560 NEXT M 

570 : 

580 REM -- INIT CHOIX -- 

590 : 

600 POK£E 49168,0 

610 PRINT BS;B$; 

620 : 

630 REM -- CHDIX — 

640 : 

650 GET RS 

660 IF ASC (RS) < 32 THEN R$ = “?" 

670 PRINT R$;:B$; 

680 C1 = {R$ æ "P” OR R$ = "p"} 

690 C2 æ (R$ = "C* OR R$ = "c") 

700 C3 = (R$ = "A" DR R$ = “a") 
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710 C4 = {R$ = "M" OR R$ = "m*) 

720 C5 = (R$ = "5" OR R$ = "s") 

730 CAS = Cl + C2* 2 + C3 «+ 3 + C4 * 
45105285 

740 IF CAS = O0 THEN 630 

750 : 

760 REM -- TRAITEMENTS —— 

770 : 

780 ON CAS GOSUB 810,810,810,1340,134 
a 

790 RETURN : REM <AFFICHAGE MENU> 

800 : 

8120 REM #/// TRI /// 

820 : 

830 REM -- INIT TRI —— 

840 : 

850 CLE = CAS - 1 

860 P#(1} = 1 

470 : 

890 REM -- BOUCLE EXTERNE = 

890 : 

900 FORI =2 TON 

910 ; 

920 REM -- EXTRACTION -- 

930 : 

940 X$ = PAYS{I,CLE) 

950 : 

960 REM -- BOUCLE INTERNE 

970 : 

980 FOR ,J = I - 1 TO O STEP -1 

990 JJ = P&{(J) 

1000 : 

1010 REM -- COMPARAISON —— 

1020 : 

1030 ON 2 - (PAYS(JJ,CLE) < X$) GOSUB 
1120,1180 

1040 : 

1050 NEXT J,I 

1060 : 

1070 REM -- AFFICHAGE — 

1080 : 


1090 GOSUB 1230: REM /// AFFICHAGE LI 


STE 


TRIEE /// 


1100 RETURN : REM <TRI> 


1110 


1120 REM /// INSERTION /// 


1130 : 


1140 P#(J + 1] = I 


1150 J = 


0 


1160 RETURN : REM <INSERTIOH> 


1170 : 


1180 REM /// DECALAGE /// 


1190, 5 


1200 P&(J + I] = JJ 
1210 RETURN : REM <DECALAGE> 


1220 : 


1230 REM / AFFICHAGE LISTE TRIEE / 


1240 : 


1250 HOME 
1260 TRIE = 1 


1270 V = 13: GOSUB 1410: REM /// AFFI 
CHAGE LISTE /// 

1280 : 

1290 REM -- ATTENTE TOUCHE -- 

1300 : 


1310 GOSUB 1500: REM /// TOUCHE /// 
1320 RETURN : REM <TRI> 


1330 : 


1340 REM /// FINI /// 


1350 : 


1360 FINI 


= 


1370 FOKE 34,0 
1380 VTAB 23 
1390 RÉTURN : REM <FINI> 


1400 


1410 REM /// AFFICHAGE LISTE /// 


1420 


1430 VTAB V: HTAB I 
1440 FOR I = 1TON 


1450 
1460 


1470 
1480 
1490 
1500 
1510 
1520 
1530 


1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
2710 
1720 
1730 
1740 
1750 
1760 
1770 
1770 
1790 


1800 


J = P$(I) * TRIE + I * NOT TRIÉ 

PRINT PAYS$S(J, 0}; TAB( 20):PAYS{J 
-1); TAB{ 34);:PAY$(J,2) 

NEXT I 

RETURN : REM <AFFICHAGE LISTE> 


REM /// TOUCÆ /// 

PRINT CHRS (7); 

POKE 49168,0: WAIT 49152,128: PO 
KE 49168,0 

PRINT CHRS (7); 


RETURN : REM <TOUCHE> 
RE4 /// RETOUR MENC /// 
READ M$ 

POKE 34,0 

VTAB 1: PRINT 

PRO = PEEK (48896) = 76 
ON 2 - PRO GO1O 1650,1660 
PRINT DS; "RUN BASIC/";MS$ 
PRINT D$;"RUN";M$ 

REM ### DONNEES FIXES ##4 


DATA 10 


En 


REM -- NOM DES PAYS -- 


DATA “Italie”, "Rome”,"I" 
DATA "Pays-Bas" ,"La Haye”, "NL" 


DATA “Belgique”, "Bruxelles", "8" 
DATA "France","Paris","F" 

OATA “Danemark”, "Copenhague", “DK 
DATA "Luxembourg", "Luxembourg", " 
L" 


1810 DATA "Allemagne fédérale", "Bonn" 
DC rn 

1820 DATA "Grande Bretagne”, "Londres" 
, "GB" 

1830 DATA "Grèce”,"Attkènes", "G" 

1840 DATA “Irlande”, “Dublin”, "IRL" 

1850 : 

1860 REM -- MESSAGES -- 

1870 : 

1880 DATA "Tri par ,.,,, <P>ays." 

1890 DATA "Tri par ,.... <C>apitale.” 

1900 DATA "Tri par ..... <ä>bréviatio 
ns 

1910 DATA "Retour au ... <Wenu." 

19230: DATA"... bte... <920rtie," 

1930 DATA "Votre choix: <?>" 

1940 : 

1950 REM -- MENU -- 

1960 : 

1970 DATA "TRI.CHAINE.MENU" 

Programme 


‘TRI.CHAINE.1.2° 


10 REM *** TRI-CHAINE.1_2 *** 


20 : 


30 GOSUB 150: REM /// INIT /// 


40 : 


50 FORI=ITON 

60 GOSUB 580: REM /// LECTURE /// 
70 GOSUB 640: REM // AFFICHAGE // 
80 NEXT 1 


GOSUB 710: REM /// TRI /// 
GOSUB 790: REM LISTE TRIEE 
GOSUB 920: REM /// FIN /// 
END 





610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


830 
840 
850 
860 


870 


REM /// INIT /// 
PRINT CHR$ (21) 


. 





REM -- DCS OÙ PRDDCS -- 


DOS = PEEK (488996) < > 76 
ON 2 - DOS GOSUB 440,500 


REM — TABLEAUX ET CONSTANTES — 


: 
; 


DIM N$(500),1X#(500) 
READ MS,NOS,FS,TS,SS 


REM -- MASQUE D'ECRAN -—- 


SPEEO= 255: TEXT : HOME 
UTAB 12: ATAB S: PRINT M$ 
L = 5 + LEN (M$) 
VTAS 14: HTAB 5: PRINT NOS 
REM -- FICNIER EN ENTREE -- 
IF NOT DOS THEN F$ = "FICHIERS/" 
+ F$ 

PRINT D$;"OPEN";F$ 

PRINT D$;"READ"/F$ 

INPUT N 

RETURN : REM <INIT> 


REM /// INIT DOS /// 


PRINT CARS (4);"BRUN TRI.DOS.INI 
T.C” 

DS = CHRS 113) + CARS (4) 

RETURN : REM <INIT DCS> 


REM /// INIT PRODOS /// 


: 


D$ = CHRS (4) 
PRINT D$;"PREFIX CODE.MACHINE* 
PRINT D$;"BRON TRI.PRO.INIT.C" 
PRINT DS$;"PREFIX /" 
RETURN : REM <INIT PRODOS> 


REM /// LECTURE /// 


PRINT D$;"REA0";F$ 
INPUT N${I) 
RETURN : REM <LECTURE> 


REM /// AFFICHAGE /// 


VTAB 12: HTAB L: CALL 64668 
PRINT NS!{I) 

VTAB 14: HTAB L: PRINT 1 
RETURN : REM <AFFICHAGE> 
REM /// TRI /// 


HOME 

HTAB 21 + LEN (TS) / 2 
VTAB 12: PRINT T$ 

€ N/NS(1),IX%(1) 

RETURN : REM <TRI> 


REM /// LISTE TRIEE /// 


: 


SPEED= 220: HOME 

PRINT " NO"; TAB{ 9};"NOMS"; TAB 
28);"HO DE FICHE” 

PRINT 7: 


POKE 34,2: VTAB 

FOR I = 1 TON 

HTAB 4 - LEN ( STR$ (1)}: PRINT 
I; 

HTAB 7: PRINT N$(IX#I)); 
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55 








56 


B80 


B90 
900 
310 
920 
3930 
940 
950 
960 
970 
980 
990 


1000 


1010 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1020 
1100 
1110 


1120 
1130 
1140 
1150 
1160 
1170 
1180 


1190 


1200 
1210 
1220 
1230 
1240 
1250 
1260 


HTAB 34 - LEN ( STR$ (IX8(1})}: 
PRINT IX$(1) 
NEXT 1 


RETURN : REM <LISTE TRIEE> 


REM #f# FIN /// 

PRINT DS; "CLOSE";FS$ 

ON 2 - DOS GOSUB 1040,1090 

SPEED= 255 

PRINT : PRINT 

BTAB 21 - LEN (S$) / 2 

VTAB 23: PRINT S$: POKE 34,0 

POKE 49168,0: WAIT 49152,12B: PO 
RE 49168,0 

IF PEEK (49152) < >27 THEN G 
OSUB 1140: REM /// MENU /// 
RETURN ; REM <FIN> 


REM /// FIN DOS /// 
38400 
REM <FIN DOS> 


HIMEM: 
RETURN : 


REM /// FIN PRODOS /// 


CALL 48888: REM <DESALLOUE LES 
ZONES DE MEIOIRE-TAMPON> 

RETURN : REM <F'IN PRODOS> 

REM /// MENU f// 

ON 2 - DOS GOTO 1170,1180 

PRINT DS$: "RUN TRI.CHAINE.MENU" 
PRINT DS$;"RUN BASIC/TRI.CHAINE.M 


### DONNEES FIXES ### 


"LECTURE DU NOM 
"FICHE NO 
STRI.PTSTE® 
DATA "TRI EN COURS" 
DATA "ESC: SORTIE / AUTRE TOUCHE 
: MENU” 


… 


Programme 
‘TRI.CHAINE.DEMO' 


10 
20 : 
30 
40 : 


70 


80 
901% 
100 
110 
120 
130 


140 
150 
160 
170 
180 
1290 
200 
210 


REM #*#* TRI.CHAINE.DEMO *## 
REM ### CORPS DU PROGRAMME #84 


GOSUB 2200: REM /// INITIALISATIO 
N /// 

GOSUB 1770: REM /// TRI PAR INSERT 
ION /// 

GOSUB 1870: REM // FIN DE PROGRA 
MME /// 

END 


REM / AFFICHAGE DES MESSAGES / 
VTAB 23: CALL = 868: NORMAL 

HTAB 19 - LEN (MS(M)) / 2; PRINT 
MS{M) 

RETURN 

REM /// PAUSE /// 

REM 


REM 


MODIF. DUREE DES PAUSE 
——— LECTURE CLAVIER —— 


X = PEEK ( - 16384) 
IF X < 128 THEN 390 


REM PRESSION D'UNE TOUCHE 


X= X - 128 
JEVX ER ZI THENLCPR= CP 72 
IF X = 8 THEN CP = CP * 2 


IF CP < 0,1 TAEN CP = O.1 
IF CP > 4 THEN CP = 
REM CLAVIER REINITIALISE 


POKE 


REM BOUCLE DE TEMPORISATION 


— 16368,0 


FOR P = 1 TO DP * CP; NEXT P 
RETURN 
REM /// BRUITAGE /// 


FOR T = À TO B STEP S: POKE 768,T 
: POKE 769,4; POKE 796,1; CALL 7 
70; NEXT T 

RETURN 

REM /// EXTRACTION /// 

REM ### TRAITEMENT ##4# 
XS = PRS{I) 

REM ### ANIMATION ### 


M = l: GOSUB 100 
OP = 500; GOSUB 160 

REM —--- NUMERO EN INVERSE ---— 
VTAB 3 + 2 * I; INVERSE : PRINT : 
A = i1:B = 5;S = l;:H4 = 200; GOSUB 4 
20 

REM === GLISSEMENT 1 --- 
DP = 500: GOSUB 160 
IX = LEN (X$) 

FOR K = O0 TO LX 

NORMAL 

BTAB 4: PRINT MIDS {XS,1,K); 
INVERSE : PRINT XS; 
A = 1:B = 5:S = 1:H = 40: GOSUB 42 
le] 

NEXT K 

REM --- GLISSEMENT 2 --- 


FOR K = 1 TO 22 - LX - 4 


NORMAL : HTAB LXY + 4: PRINT SPC( 
K) 

INVERSE : PRINT XS; 

A = 1:B = 5;S = 1:H = 40: GOSUB 42 
0 

NEXT K 

REM —— ARRET À DROITE = 


DP = 500: GOSUB 160 


RETURN 

REM /// COMPARAISON /// 

REM #8 GLISSEMENT VERS LE HAUT 
LEE 

FOR L = 5 TO 4 STEP - 1 
VTAB L + 2 * J; ATAB 22: CALL - 
868 

INVERSE 

VTAB L - 1 + 2 * J: HTAB 22: PRIN 


EE 


T x$ 


9SOVAN= 10: TS — 1::H1— 10}, COSU 
B 420 

90 NEXT L 

970 : 

980 REM ELEMENT COMPARE EN FLASH 

990 : 


1000 M = 2; GOSUB 100 


1010 DP = 100: GOSUB 160 

1020 FLASH 

1030 VTA3 3 + 2 * J; HTAB 4: PRINT PR 
S{J) 

1040 FOR F = 1 TO 2 

1050 À = 20:B = 10;:S = - 1;:4 = 20; GO 
SUB 420 

1060 À = 10:B = 20;S = 1:H = 20: GOSUB 
420 

1070 NEXT F 

1080 NORMAL 

1090 VTAB 3 + 2 * J: HTAB 4: PRINT PR 
S{x) 

1100 DP = 100: GOSUB 230 

1110 RETURN 

1120 : 

1130 REM /// DECALAGE /// 

1140 : 

1150 REM ### TRAITEMENT #84 

1160 : 

1170 PRS(J + 1) = PR$S(J) 

1180 : 

1190 REM ### ANIMATION #8f 

1200 :; 

1210 REM --- MESSAGE BAS ECRAN --- 

1220 : 

1230 M = 3: GOSUB 100 

1240 DP = 500; GOSUB 160 

1250 : 

1260 REM AFFICHAGE DU DECALAGE 

1220 

1280 À = 10:B = 1:S = - 1:H = B0: GOS 
UB 420 

1290 INVERSE : VTAB 4 + 2 * J: HTAB 4 
: PRINT PRS{J + 1} 

1300 DP = 150: GOSU8 160 

1310 VTAB 4 + 2 * J; HTAB 4; NORMAL : 
PRINT SPC( 20) 

1320 VTAB 5 + 2 * J: HTAB 4: INVERSE 
3: PRINT PR$(J + 1);:;: NORMAL : PR 
INT SPC{ 20) 

1330 A = 10;:B = 1;:S = - 1;:4 = 80; GOS 
UB 420 

1340 DP = 1000: GOSUB 160 

1350 VTAB 5 + 2 * J: ATAB 4: PRINT PR 
SU EL) 

1360 RETURN 

1370 : 

1380 REM /// INSERTION /// 

1390F: 

1400 REM ### ANIMATION #84 

1410 : 

1420 REM --- MESSAGE BAS ECRAN --- 

1430 : 

1440 M = 4: GOSUB 100 

1450 : 

1460 REM GLISSEMENT VERS LE BAS 

1470 : 

1480 DP = 75: GOSUB 160 

1490 VTAB 3 + 2 * J: HTAB 22: CALL — 
868 

1500 INVERSE : VTAB 4 + 2 * J: PRINT 
XS 

1510 À = 15:B = 1:S = - 1:H = 80: Gos 
UB 420 

1520 DP = 75: GOSUB 160 

1530 VTAB 4 + 2 * J: HTAB 22: CALL — 
868 

1540 VTAB 5 + 2 * J: PRINT XS; 

1550 À = 15:B = 1:5 = - 1:4 = 80; Gos 
uB 420 
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1560 DP = 1000: GOSUB 160 2110 REM /// TRI.CHAINE.MENU /// 2670 AS = "TRI PAR INSERTI 
1570 : 2120 : Oo N° 
1580 REM GLISSEMENT HORIZONTAL 2130 POP : POP 2680 À = 19 - LEN (AS$} / 2 
1590 : 2140 TEXT : VTAB 1 2690 HTAB A: PRINT AS 
1600 FOR L = 21 TO 4 STEP -1 2150 PRO = PEEK (48896) = 76 2700 VTAB 3 
1610 INVERSE : HATAB L: PRINT XS; 2160 ON 2 - PRO GOTO 2170,2180 2710 : 
1620 NORMAL ; PRINT SPCI 1) 2170 PRINT C£RS (4);"RUN BASIC/TRI.C 2720 REM AFFICHAGE DES PAYS 
1630 À = L:B = L:S = 1:H = 100: GOSUB BAINE.MENU" 2730 : 
420 2180 PRINT CHRS (4);"RON TRI.CHAINE. 2740 FOR K = 0 TON 
1640 NEXT L MENU" 2750 PRINT K;:". ";PRS(K): PRINT 
1650 : 2190 : 2760 NEXT K 
1660 REM INSERTION TERMINEE 2200 REM /// INITIALISATION /// 2770 : 
1670 : 2210 : 2780 REM MESSAGE BAS DE L ‘ECRAN 
1680 DP = 1000: GOSUB 160 2220 PRINT CHRS {21} 2790 : 
1690 NORMAL : HTAB 4: PRINT XS 2230 TEXT : HCME : SPE£D= 255 2800 M = 0: GOSUB 100 
1700 : 2240 : 2810 A = ];:5B = 10:5 = 1:H = 100: GOSUB 
1710 REM TRAITEMENT 2250 REM --- TABLE DES PAYS --- 420 
1720 : 2260 : 2820 À = 1:B = 10:S = 1:H = 50: GOSUB 
1730 PRSIJ + 1) = XxS 2270 DIM PRS(9) 420 
1740 3 = 0 2280 N= -1 2830 : 
1750 RETURN 2290 : 2840 REM ATTENTE D'UNE TOUCHE 
1760 : 2300 REM --- LECTURE PAYS — 2850 : 
1770 REM TRI PAR INSERTION 23100 2860 WAIT - 16384,128: POKE - 16368 
1780 : 2320 READ PRS ,0 
1790 FORI=2TON 2330 IF PR$ = "F" THEN 2370 2870 RETURN 
1800 GOSUB 470 2340 N = N + l:PRS(N) = PRS 2880 : 
1810 FOR J = I - 1 TO O STEP -]1 2350 GOTO 2300 2890 REM ### DONNEES FIXES ### 
1820 GOSUB 870 2360 : 2900 : 
1830 ON (XS < PRS$(J)} + 1 GOSUB 1380, 2370 RM LECTURE DES MESSAGES 2910 REM --- PAYS --- 
1139 2380 : 2920 : 
1840 NEXT J,I 2390 DIM MS(5) 2930 DATA * * 
1850 RETURN 2400 FOR K = 0 Ta 5 2940 : 
1860 : 2410 READ MS(X) 2950 DATA “PASCAL* 
1870 REM /// FIN DU PROGRAMME /// 2420 NEXTK 2960 DATA "FORTRAN" 
1880 : 2430 : 2970 DATA "COBOL" 
1890 REM MESSAGE BAS DE L'ECRAN 2440 REM --- COEFFICIENT PAUSE --- 2980 DATA "BASIC" 
1900 : 2450 : 2990 DATA ‘"ASSEMBLEUR" 
1910 M = 5: GOSUB 100 2460 CP=1 3000 DATA “MODULA 2” 
1920 À = 1:B = 10:5 = 1:H = 100: GosuB 2470 : 3010 DATA "Ana" 
420 2480 REM BRUITAGE 3020 DATA ‘"PLI* 
1930 À = 1:8 = 10:5 = 1:H = 50: GOSUB 2490 : 3030 DATA "c” 
420 2500 FOR I = O TO 25: READ A: POKE 77 3040 DATA "Fr" 
1940 : O0 + I,A: NEXT I 3050 : 
1950 : REM  ATTENTE D'UNE TOUCHE 2510 : 3060 REM --- MESSAGES --- 
1960 : 2520 REM --- AFFICHAGE INITIAL === 3070 : 
1970 POKE 49168,0: NAIT 49152,128: PO 2530 : 3080 DATA "DE BUT DU TRI" 
KE 49168,0 2540 REM --- CADRE == 3090 DATA "EXTRACTION" 
1980 : 2550 3100 DATA "COMPARAISON" 
1990 REM TEST RETOUR TRI.CHAINE.MENU 2560 POKE 48,186 3110 DTA "DECALAGE" 
2000 : 2570 VLIN 0,47 AT O: VLIN 0,47 AT 39 3120 DATA "INSERTION" 
2010 TC = PEEK (49152) HOTELS 3130 DATA “FIN: <ESC> = SORTIE <RTN> 
2020 CH = (TC = 27) + (TC = 13) * 2 5 MENU" 
2030 ON CH GOSUB 2060,2110 2590 VTAB 2: PRINT LS; 3140 : 
2040 GoOTO 1950 2600 VTAB 22: PRINT LS; 3150 REM --- PROG. MUSIQUE --- 
2050 : 2610 VTAB 24: PRINT LEFTS {LS,39); 3160 : 
2060 REM /// SORTIE /// 2620 POKE 33,37: POKE 32,2 3170 DATA 173,48,192,173,0,3,32,168,2 
2070 : 2630 : 52,173,1,3,208,5,206,28,3,240,6, 
2080 TEXT : HOME 2640 REM --- TITRE --- 206,17 3, 76,2,3,96 
2090 POP : RETURN 2650 
2100 : 2660 VTAB 1 
Source ‘TRI.PRO.INIT’ 14 # - Date de création: 12 aout 1985 æ 
15 * - Assembleur: Aferlin-Pro 1.43 * 
assembleur Procode 16 CÉLELELLLLEELLELELELELELLE LEE LEE LE LES ELLES SES: 
1 LST OFF Dire 
2 TAB 03,15,21,31,36,49 18 ORG 5300 
| 3 AAAAAAAAAAAAAAAAAAAARLARIARSLAS AAA AAA AAA AA AAA AR 19 
l 4 * >#> TRI.PRO.INIT <<< * 20 nn * 
D As lim * 21 * - Adresses de référence 29 
6 * — réserve 1 mémoire-tampon d'une page entre * 22. N==----—————————- Dmmn——-——énmmmmmmmsmmmmmm—— * 
7 le BASIC.SYSTEM et sa mémoire-tampon * 23 
g * d'usage général (Generali Purpose Buffer). * 24 IN $200 Mémoire-tampon d'entrée 
9 #* — le programne TRI.CHAINE.C ÿ est chargé. * 25 NARMST - S3D0 ‘Redémarrage avec SED 
| a _—— RE * 26 AMPERVE =  53F6 sPointeur perluète (€) 
11 + - ProDOS + BASIC.SYSTEM + Applesoft * 27 AMPERVH = S3F7 ; (vecteur Ampersand) 
DE PERS num * 28 GETSUFR  EQU SBEFS ‘Allocation de mémoire Par 
13 * - Auteur: LAMBILLON Bernard * 29 “page de 256 octets; le 
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30 snorbre de pages est dans À. 4211 

J ;L'adresse de début de 1a page 112 LDY #0 copie de 13 commande 
32 rest un multiple de 256 (adresse 113 COPIE LDA COMMANDE, Y dans la mémoire-tanmipon 
33 “base = 500). 114 STA IN,Y sd‘entrée IN {$200), 

34 ;Au retour, 2 = 0 si erreur. 115 INY 

35 DOSCMD EQU $BE03 sAnalyse et exécution d'une 116 CMP $S8D ‘fin de commande? 

36 commande ProDOS placée dens nl] BNE COPIE 

37 ;la mémoire-tampon d'entrée; 118 JSR DOSCMD analyse et exécution 
38 ;1a ligne de commande se termine 119 BCC RETOUR Si p4as d'erreur 

39 ;Par $89, le code ASCII des 120 £AG 

40 car, est avec le bit 7 mis à 1. 121 Am * 
41 ;Au retour, C = 1 si erreur. 122 * - Erreur d'exécution de la cammrde * 
92 ERROUT EQU $BE09 *Gestfon en cas d'errevr 123 ta — + 
43 dans bne conmande PrcSos, 124 

44 ;Le code d'erreur est placé en 125 JSR ERROUT analyse l'erreur 

45 :ERRCOBE ($BEO0F) et ERRNUM ($DE} 126 LDA ERRCODE imprime le message 

46 PRINTERR EQU S$BEOC Affiche message d'erreur 127 JSR PRINTERR affiche message erreur 
47 rdont le numérc est en À, 128 JMP WARMST sarret du programme Basic 
48 ERRCODE - SBEOF Code d'une erreur ProDOS 129 

49 130 RETOUR RTS retour au programme Basic 
SO #0 4 131 

51 * - réservation d'une Page de 256 octets * 132 Am mm mm + 
RE EEE EE EE Li 133 * - Commande: BLOAD TRI.CHAINE,C, AS2200 * 
me] 134 === mm mms * 
S4 LA #$01 ;1 page de 256 octets 135 

55 JSR GETBUFR ;allocatior de mémoire 136 COMMANDE ASC "SLOADTRI.CHAINE.C,AS$" 

sé BEC AMPER Si Pas d'erreur 

57 PAG 137 ADRESSE DFB SB0,SB0,$BO, SBO 

138 DFB S8D ‘fin de là commande 

6i é 3 

62 LDA #S0E ‘Code erreur: PROGRAM TOC LARGE Source TRI. DOS.INIT 

63 JSR PRINTERR affiche message erreur assembleur Procode 

64 JMP WARMST ;artet du programme Basic 

65 1 LST OFF 

GT DÉS RRRR s à 2 TAB 03,15,21,31,36,49 

67 * - Ecriture(partie haute du vecteur AMPERV * D 'ottttttétttaitétttéttéttatttttdtttéitétttétttttih 
68 A # 4 * >>> TRI,DOS,INIT <e< * 
659 5 A mm # 
70 AMPER STA AMPERVH ;AMPERVH = n° de bage 6 * —- Ce programne charge le programe * 

71 sde la zone allouée PRE TRI.CHAINE,.C en dessous du HIMEM actuel, * 
72 8 * —- le vecteur 6 est ris en place et le HIMEM * 
DT) * 9 # est déplacè de 214 octets (S$SD6). * 
74 * - conversion de l'adresse en ASCII * EE * 
752 et écriture de celle-ci dans la zone * 11 * - DOS 3.3 + Applesoft * 
76 * ADRESSE qui mémorise l'adresse de # EEE a 
77 * chargement du programme TRI.CHAINE * 13 * - Auteur: LAMBILLON Bernard * 
78 = * 14 * - Date de créstion: 12 aout 1985 * 
79 15 * - Assembleur: Merlin-Pro 1.43 x 
&8( TAX ; Sauvegarde de A dans x 16 htttttstthétthttétéiiéétnéntéthétététiéétititétss 
8 LSR décalage du quartet de 17 

82 LSR spoids fort dans le 18 ORG $300 

83 LSR quartet de poids faible 19 

84 LSR #ex: 9C --> 09 20 = mm mme a“ 
85 CiC conversion en Ascii 21 * - Adresses de référence + 

86 ADC #5B0 jex: 09 --> B9 22 tee q 
87 STA ADRESSE sparanétre adresse de chargem. 23 

88 24 LINNUMB =  $50 sadresse pour RSHM 

89 TXA restauration de À 25 LINNUMH =  SS1 

30 AND #$0F smasque $0F ex: $9C--> SOC) 26 HIMEMB - $73 adresse la plus élevée 
g1 :A = quartet de poids faible 2? HIMEMH = $74 de la mémoire vive 

92 CMP #$0A :$00 & S09 ou SOA à $0F 28 IN = $200 smémoire-tambon d'entrée 
93 BMI CHIFFRE :s1 À contient de $00 à S09 29 AMPERVB = $3r6 ‘pointeur periuète (6) 
94 ADC #$06 sinon À <== À + 7 30 AMPERVH = $3F7 ; (vecteur Ampersand) 

95 sex; SOC --> $13 31 DOSKBD EQU $S9FCD /analÿse une cemmande DOS 
96 CHIFFRE ADC #$B0 sconversion en Ascii 32 RSHM EQU $F28C ‘mise en placé du HIMEM 
97 rex! 513 --> SC3 (lettre C) 33 sen fonction de LINNUM ($50,S51) 
38 STA ADRESSE+1 sparamétre adresse de chargem. 34 

98 35 Re me # 
100 8 * 36 * - HIMEM <== HIMEM - $D6 (214 octets) * 
101 * - fcriture partie basse du vecteur AMPERV * 37 * — AMPERV <ewm HIMEM * 
102 À mm mm £ EE # 
103 39 

104 LDA #$00 alignement sur 1 page 49 LDY #$03 init pour écriture ADRESSE 
105 STA AMPERVE 41 SEC 
106 42 LODA HÏMEMB /HIMEMB <— HIMEMB -— $Dé 
OT . 43 SBC #$D7 

108 * - Copie, analyse et exécution de la * 44 STA LINNUMB Pour RSHM 

109 * commande ProDOS: BLOAD TRI.CHAINE. * 45 STÀ AMPERVB ;AMPERVB <== HIMEMB 

46 JSR ASCII sconvexsion en Ascii 
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55 
56 


LDA HIMEMH 
S8Cc #500 ?HIMEMH <== HIMEMH — retenue 
STA LINNUMA “pour RSAHM 
STA AMPERVH ‘AMPERVA <umw HIMEMH 
JSR ASCII sconversion en Ascii 
J$R R$SHM ;ReSet HiMem 
Re ee ue ue ue ue ue eue me ee ee ue ou ou 20 08 08 0 er eue cet mue me ce ee me me me me me me me ne x 
* — Copie, analyse et exécution de la + 
* cormande ProDOS: BLOAD TRI-CHAINE. 
Rmmmmm mm mr men en meme nee 2e m0 00 00 0e AR © 8 
COPIE LDA COMMANDE,Y ;dans la mémoire-tampon 
STA IN,Y d'entrée IN (5200). 
INY 
CMP 4$8D fin de commande? 
BNE COPIE 
JSR DOSKBD ‘analyse et exécution 
RTS 
Ro mm mm om me ee ee ee me ee me ee ec À 
* —- conversion de l'adresse en ASCII À 
* et écriture de celle-ci dans la zone * 
* ADRESSE qui mémorise l'adresse de * 
* chargement du programme TRI.CHAINE # 
Lee mm x 
ASCII TAX ‘sauvegarde de À dans X 
AND #$0F ‘masquage des bits 4 à 7 
JSR CONVERT ‘conversion quartet 
TXA 
LSR sdécalagé du quartet de 
LSR “Poids fort dans le 
LSR /Guartet de poids faibie 
LSR sex: 9C --> 09 
JSR CONVERT zConversion quartet de 
spoids fort 
RTS +fin de la routine ASCII 
CONVE RT CLC 
CMP 9$0A :$00 à $09 ou $0A à $SGF 
B8MI CONVERTI ;31 À contient de 500 ä 509 
ADC }$506 ssinon À <— À + 7 
sex: SOC --> $13 
CONVERT ADC 8580 cont'érsion en Ascii 
rex: $13 --> $C3 (lettre C) 
STA ADRESSE, Y ;peranétre adresse de chargem. 
DEY 
RTS sfin de la routfne CONVERT 
hommmmmmmmmmmmmmmmmmmmmmmmmmmmmmeeemm——————— * 
# - Commande: BLOAD TRI.CHAINE.C, A$??00 * 
© 0 mm mm a — mme ne me meme me * 
COMMANDE ASC '"BLOADTRI,CHAINE,C,AS$S" 
ADRESSE DS 4 
DFB $8D ‘fin de la commande 


Source ‘TRI.CHAINE’ 


assembleur Procode 


© @ Jo Un ds y A3 hs 


19 


LST OFF 
TAB 03,15,21,31,36,49 


RRAAAARAAAAAAAAARAAAARAAAR M ARAAAAAAAAAAR AAA AA 


* >x> TRI.CHAINE <<< + 


* — trie un tébleau de chaines de caractères % 
* säns rwdi{fier l'ordre initial. * 
* - mémorise l'ordre alphabétique au moyen * 
# d'une table d'index (type entier) qui est * 
* * 


{nitialifsée par le programme lui mente. 
homme. + 
* — Syntaxe : & N, AS(1}, IX%(1) * 
* avec N : nombre d'éléments à trier #* 
* A$(1): élément 1 de la table à trier * 
* IX#&(1/: élément 1 de la table d'index * 
—memmasnmensmessmmssssmesss.-urnnsnsss==s * 


“ — DOS + Appiesoft ou * 
* — ProDOS + Basic.System + Applesoft * 








Comment faire ? 


Pour utiliser cette routine de tri au sein de votre 
programme Basic, vous devrez avoir sur la disquette les 
fichiers binaires : 
TRI.DOS.INIT.C et TRI.CHAINE.C 
s'il s'agit d'une disquette DOS, ou : 
TRI.PRO.INIT.C et 
s'il s'agit d'une disquette ProDOS. 


TRI.CHAINE.C 


Au début du programme Basic, if y aura une instruction : 
PRINT CHR$S(4)"BRUN TRI.DOS.INIT.C" 
s'il s'agit d'une disquette DOS, ou: 
PRINT CHR$S(4)"BRUN TRI.PRO.INIT.C" 
s'il s'agit d'une disquette ProDOS. 


Commentt trier ? 


Un exemple simple : 


Dans un tabieau aiphanumérique se trouvent des noms de 
clients : 


"JEAN" : AS(2) = 
AS$ (4) 
AS$(6) 


DIM AS$(6) 
“"pASL" : 
"YVES" 


A$(1) = 
A$(3) = "ANNE" 
A$(5) "LYDA" : 

"YANN" 


if faut dimensionner un tableau pour recevoir les clefs 


d'accès : 
DIM I$(6) 


Maintenant le tri proprement dit : 
66,AS$(1),18(1) 


&6 parce qu'il y a 6 éléments à trier, 
A$(1) représente le premier élément à trier, 
l%(1) est le premier index. 


Pour trouver nos clients par ordre alphabétique, il faut les 
lire suivant le tableau d'index maintenant modifié : 
FOR I = 1 TO 6 : PRINT AS(I4(I)) 
NEXT 


Les programmes de démonstration 


sous DOS fonctionneront directement et d'autant plus 
simplement que vous disposez de la disquette 
d'accompagnement. 


Sous ProDOS, après saisie au clavier ou transfert depuis 
la disquette Pom's, vous devrez mettre les programmes 
Basic dans un sous-catalogue nommé : 


BASIC 
et les routines dans un sous-catalogue nommé : 
CODE.MACHINE 

QE —— * 
28 * — Auteur : LAMBILLON Bernard * 
21 * - Date de création: 10 aout 1985 * 
22 * - Assembleur : ProCode 1.23 #* | 
PERELLELELELELEE ELLES EL ESSE LE EEE LES LE EEE ELLE LELLELLEEE) 
24 
25 LÉLELELELELEEEEEELEEEEEEEEEEEEEEEEEEEELEEEEELEEE) 


26 * ADRESSES DE REFERENCE * 
PYAELELELLEEZLEEELEEL EEE EEE EEE EEE EE EEE EEE LEELEEE) 
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28 109 #LINNUM ($50,$51) c-à-d NBLE 
29 2m —— di 110 {nombre d'éléments à trier} 








FI t=mmcmmm mm mm mm —— = 112 AARRARAAARAARRAARARERARARALERERRASRAERAÈTAÈSRAS 


32 113 * INITIALISATION DU TRI # 


héttthitarhiiriiritirrtiskhtttrtirittttttrtretttt 













33 TABLEOB = $6 adresse de l'éïément 114 

34 TABLEOH = S7 ;d'indice 0 de la table SU 

35 TABLEIB $8 sadresse de l'élément DIGLEE-- * 

36 TABLEIH = $9 extrait de la table 117 * Lecture du nambre d'éléments à trier (NBLE) * 

37 TABLE2B = $19 adresse de l'éléme.rt HOT TR * 

38 TABLE2H = S14 ;comparé dens la table 119 

39 120 JSR  FRMNUM ‘lecture du nombre d'éléments: 
QU * met set stockage en FAC (59D..SA2) 
41 * Pointeurs vers la table d'index * 122 JSR GETADR ;FAC --> NBLE ($50 et S51) 


















44 INDEX1IB = $83 ‘adresse de l'index 125 * Initialisation pointeurs TABLEQ et TABLEI * 

45 INDEXIH = S84 de l'élément extrait 126) Romanian enr minette ments me nie mien * 

96 INOEX2B = $1B adresse de l'index 127 

47 INDEX2H - sic sde l'élément comparé 128 UJSR CHKCOM “teste présence d'une virguie 
48 129 JSR PTRGET ;place adresse de la variable 
99 2" * 130 spointée par TXTPTR dans À 
50 * Nembre d'éléments à trier * SE *{partie basse) et Y {partie 
GE A * 132 haute) 

52 135. JSR CHKSTR ;teste variable type chaine 
53 NBELB = $50 la routine GETADR écrit un 134 SEC sinitietion soustraction 

54 NBELH = $S1 rentiér à cette adresse 135 STA TABLE18 stransfert de À --> TABLEIB 
55 136 SBC #503 :3 octets par élément d'un 
56 À # 137 stableau du type chaine 

57 * Descripteur de la chaine extraite + 138 STA TABLEOB stransfert de À --> TABLEUB 





5g Am mm mm # 139 STY TABLEIH stransfert de Y --> TABLE1H 









60 LONGI = $93 longueur chaire extraite 141 S8C #$00 :TABLEOH <-- TABLEIÏH - carry 
61 CHAINEIB = $94 adresse de stockage 142 STA TABLECH ;transfert de À --> TABLEDH 


62 CHAINEÏH = $g5 sde la chaine extraite 143 



















67 148 JSR CHKCOM jteste présence d'une virgule 
68 LONG2 = $98 jiongueur Chaire comparée 149 JSR FPTRGET ;place adresse de l'élément 1 
69 CHAINE2B = $97 seûresse de stockage 150 ;de la table d'index en VARPNT 
70 CHAINEZH = $98 sde la chaine comparée 151 #($83 et 584) c-à-a ici INDEX1 
71 152 TSR CHKNUM steste s'il s'agit d'un nombre 













76 ENTIERIH = S9A ‘partie haute de l'index 157 
77 ENTIERIS = $9B ;jpartie basse de l'index 158 LSY #$00 ;ENTIERIH <= 0 
78 159 STY ENTIERIA 










80 * Index de l'élément comparé * 161 STA (INDEX1B),Y:partie haute IX#{(1} <== { 













82 163 STY ENTIERIB :’ENTIERIB <== ] 

83 ENTIER2H = $1D spartie haute de l'index 169 TYA 

83 ENTIER2B = $IE ;partie basse de l'index 165 STA (INDEX1B),Y;Dartie basse IX4#(1) <== ] 
83 166 CLC «init. report pour EXTRACT 







87 * RoutInes Applesoft en MM (ROM) LL 168 
PC 2 169 + BOUCLE EXTERNE (FOR I = 2 TO N) * 
89 BYE LELLEELELEELELEELELELEELEEEEEEELELESLEELELLELEE) 






thffiititiiiittéiéitéitittéétéftthifititthiitéitttñ À À 

















90 FRMNUM EQU $SDD67 ;value la formule pointé; 171 

91 ;par TXTPTR ($B8 et $B9) ER EEE * 
92 set place le résultat en 173 * Répéter NBEL <== NBEL-1 tant Que NBEL <> O * 
93 :FAC ($9D,.SA2) EEE F3 
99 CHKCOM EQU S$DEBE teste Présence d'une virgule 1175 

95 :si erreur: ?SYNTAX ERROR 176 EXTERNE LDA NBELE 

96 ;IN numéro de ligne 177 BNE EXTERNEI si NBELB<>0 

97 ;et retour au programme Basic 178 DEC NBELH ;NBELH <== NBELH-1 si NBLEB=0 
98 CHKNUM EQU S$DD6A teste varisble type numérique 179 EXTERNEl DEC NBELB :NBELB <== NBELB-1] 

99 si erreur: ?TYPE MISMATCH 130 BNE  EXTRACT Si NBLEB<>0 

100 ;ERROR IN numéro de ligne 181 LDA NBELH 

101 CHKSTR EQU  $DD6C teste variable type chaîne 182 BNE EXTRACT ;si NBLEB=0 et NBELH<>0 
102 si erreur: ?TYPE MISMATCH 183 RTS ;3i NBELB=0 et NBELHæ 
103 :ERROR IN numéro de ligne 184 PAG 

104 PTRGET EQU $DFE3 ;cherche une variable et place 185 Arhkañttttakatttt*RAAt tt RAA RÉ tte xx ER EX À à 
105 son adresse dans À et Yet en 186 * INSERTION * 
106 ;VARPNT ($g3 et 584) 197 *AthéttatétttttttottttttéttAætdttdtantéteAtattA* # 
107 GETADR EQU $E752 stransforme de FAC (S9D..SA2) 









‘en un entier stocké en 


60 


190 #* ENTIERI <== ENTIERI + 1 + 
192 ee = 
192 

193 INSERT INC ENTIERIB SENTIERIB <me ENTIERIB+1 
194 BNE INSERTI si pas de chgt. de page 
195 INC ENTIERIH :ENTIERIH <— ENTIERIH+1 





198 + Copie de ENTIERI dans l'élément pointé par * 
133 * INDEX2 + 2 + 
AO Es RÉ EDSSRSES 5 
201 


202 INSERTI LDA ENTIERIH ;copie partie haute 
203 LDY 4502 


204 STA (INDEX2B),Y 

205 LDA ENTIERIB ;copie partie basse 

206 INY 

207 STA (INDEX2B),Y 

208 CLC sbit de report forcé à 0 
209 sinit. report pour EXTRACT 
210 BCC EXTERNE sbranchement inconditionnel 
211 

212 détéésrédééédéthéthédéhhdthédhédtétitttiétédtriés 

213 + EXTRACTION * 


214 rssssasésésédééérhéshthddététtddtédhtédhéddé ht 


216 *--——————— mm — # 
217 + TABLE! <-- TABLEI + 3 # 
218 2 * 
219 

220 EXTRACT LDA TABLEIB *TABLE1B <== TABLE18:3 
221 ADC #$03 

222 STA TABLEIB 

223 BCC EXTRACTI ;s£i Das de report 

224 INC TABLEIH TABLEÏH <== TABLE1H:3 
225 

CARRE EE 5 
227 * INDEX2 <== INDEX * 
228 * INDEX1 <== INDEX1 + 2 # 
PACE CR é. 
230 

233 CLC 

232 EXTRACTI1 LDA INOEXI8S ;INDEX2B <== INDEXIB 
233 STA INDEX2B 

234 ADC 4#$02 ;INDEX2B <== INDEX1B+2 
235 STA INDEXIB 

236 LDA  INDEXIH ;INDEX2H <== INDEXIH 
237 STA INDEX2H 

238 ADC #$00 /INDEX1H <== INDEX1H+report 
239 STA INDEXIH 

240 PAG 

241 

242 = . 
243 * Sauvegarde du descripteur de chaine contenu * 
244 * dans l'élément extrait. * 
DES + 
246 

247 LDY 402 copie de 3 octets 

298 EXTRACT2 LDA (TABLEIB),Y 

249 STA LONGI,Y écriture en CHAINEIA, 
250 DEY :CHAINE1B et LONGI 

251 BPL EXTRACT2 

252 

253 LÉLELLEEE EEE EEE EEE EE EEE EEE EEE ELEEEEELELLELEE) 
254 #* BOUCLE INTERNE (FOR J=l-1 TO O ST£P -1} - 


PARRELLELELELLLESLEEEE ELLE LEELLEELELLL ELLE LETLLLE EE] 


CAES DS Dm : 

258 * TABLE2 <== 3 + ENTIER2 + TABLEO + 

259 mm PEER . 

260 

261 INTERNE LDY #$00 

262 LDA  (INDEX2B) ,Y ;lecture de ENTIER2H 

263 STA TABLE2H scopie de ENTIER2H en TABLE2H 
264 STA ENTIER2H jet sauvegarde en ENTIER2H 
265 INY 

266 LDA (INCEX2B),Y :lecture de ENTIER2# 


267 STA TABLE2B scopie de ENTIERZ2B en TABLE2E 
268 STA ENTIERZB ;at sauvegarde en ENTIER23 
269 ASL ‘A contient 2*ENTIER28; 

270 ROL TABLEZH : TABSLE2H <== 2+ENTIERZHsrepcrt 


27i 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
267 
288 
289 
290 
291 
292 
293 
294 
295 
296 
207 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
Es] 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
393 
344 
345 
346 
347 
348 
343 
350 
351 


ADC TABLE2B ‘A contient 3*ENTIER2E 
BCC INTERNE! ;si pas de débordement 
INC TABLE2H : TABLÈH <== TABLEHs1 


INTERNEZ ADC TABLEOB 


STA TABLE2B ‘ok pour TABLE2B 
LDA TABLE2H ‘A contient 2*ENTIER?H+report 
ADC ENTIER2H *A contient 3*ENTITR2H 
CLC 
ADC  TABLEOH A contient 3*ENTIER2H+TABLEOH 
STA TABLEZ2H ;ok pour TABSLE2H 
PR Ç—— — ;; 
# Sauvegarde du descripteur de chaîne contenu *# 


* dans l'élément comparé. * 
(PE SR PE ES EE , 

LDY #$02 copie de 3 octets 
INTERNE2 LDA (TABLE25),Y 


STA LONG2,}' écriture en CHAINEZH, 

DEY :CHAINE2B et LONGZ 

BPL  INTERNE2 

PAG 
tétsétédéttédéthhthtiddhiétsddhédhiéthédhhtttdtht 
# COMPARAISON * 
LÉLÉLELESELIESEE EEE EEE EEE EL EL TEE TELEEETELTES 
fommmmmmmmmmmmmmmmmmmmmmmmmmme———— 0] 
# Test dernier caractère d'une des chaines? 8 


* Test si une des chaines est vide? À 


nee mm —————— 4 


INTERNE3 INY 5Y=0,1,2... 
CPY LONG2 
BEQ INSERT ‘si dernier caractère chaîne 
;comparée (LONG2=0 où LONG2=Y} 
CPY LONGI 
BEO DECALE si dernier caractère chainee 
sextraite (LONGI=ÿ où LONGI=}} 
fm C1 
* Comparaison du Yème caractère des 2 chäines * 
finmummmmmmmmmmmmmmmmmmmm…———……| é 


LDA (CHAINE2B),Y;A=Yème car. chaine comparée 
CMP  (CHAINE1B), Y;M=Yème car. chaine extraire 


BCC INSERT A <M 

BNE DECALE A >M 
mm eme me eme ee ee * 
* Caractères identiques # 
ee 2 pe es in ns en th es nom = ee es ma en ee ee ee + me mn en ee ne + 


BEQ INTERNE3 branchement inconditionnel 


tétsdtishsdtessssédgsédéséetitititéttitttiinatttts 


* DECALAGE : 


CELEELEEELEEEEEELEEEEE EEE EP EEELLIE EEE EETESEEE) 


RE . 
* IX$(J+1) <== IXH(J) * 
a — # 


DECALE LoY #$02 


LDA ENTIERZH 
STA (INDEX2B),Y 


LDÀ ENTIER2B 
STA (INDEX2B),Y 


ee ee ee me ee me 0e ee en 00e on ee ee ee @û0 0 œ0ù 0e 0e 0e 0e me een mue ou ou ne eue mue ou * 
# NEXT J (boucle interne) ,; J <= J -1I * 
* INDEX2 <== INDEX2 - 2 * 
Dmmmmmmmmm mm mm mm me me D mm mm mme ne ne me meme me me me ee me , 
SEC 
LDA INDEX2B # INDEX2B <== INDEX2B-2 


SBC #$02 

STA  INDEX2B 
BCS INTERNE 
DEC  INDEX2H 
BCC INTERNE 


431 pas de retenue 
;INDEX2H <== INDEX2H-1 
sbrénchement inconditionnel 


‘A contient 3*ENTIERZB+TABLEUB 
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Récapitulation 
‘TRI.CHAINE.C' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE TRI.CHAINE.C,A$7000,18D7 


7000- 20 67 DD 20 52 E7 20 BE 
7008- DÉ 20 E3 DF 20 6C DD 38 
7010- 65 06 E9 03 85 06 84 09 
7018- 98 E9 00 85 07 20 BE DE 
7020- 20 E3 DF 20 6A DD AO 00 
7028- 64 9A 968 91 83 C8 84 9B 
7030- 98 91 83 18 A5 50 DO 02 
#036- C6) 51" CE" 50 DO. 1 9%AS 57 
7040- D0 15 60 Eé 9B DO 02 E6 
7048- 9A AS 9A AO 02 91 1B A5 
7050- 9B C8 91 1B 18 90 DD A5 
7058- 08 69 03 85 08 90 03 Eë6 
7060- 09 18 AS 83 85 1B 69 02 
7068- 85 83 AS 84 85 iC 69 00 
20707" 8569 VA0N02 B1N 08/99 93 
7078- 00 88 10 F8 AO 00 B1 1B 
7080- 85 1A 85 1D C8 Bi 1B 85 
7088- 19 65 IE OA 26 IA 65 19 
7090- 90 03 E6 1A 168 65 06 85 


Branchez un 


disk )[ sur 
le //e 






Bruno 
Fénart 


Suivant le principe cher à Apple 
de l'incompatibilité minimale, 
l'Apple //c ne pouvait utiliser que 
des lecteurs spécifiques, alors 
que la différence avec les disk ][ 
est minime, en dehors de la 
présentation. Comme bien 
souvent en infornatique, le 
problème se résume à une 
question de connexion. 


Le montage ci-dessous — peut-on 
parler de montage considérant la 
simplicité — a donc pour objet 
d'autoriser le branchement de 
votre lecteur d'Apple Jf+ ou //e 
sur votre nouveau //c. Avec un //c 


inuses 


disk 


70A0- 85 1A AO 02 B1 19 99 96 


Récapitulation 
TRI.PRO.INIT.C’ 


Après avoir saisi ce code sous 
monifeur, vous le sauvegarderez par 
BSAVE TRI.PROINIT.C,A$300,1$69 


0300- A9 01 20 F5 BE FO 08 A9 
0308- 0E 20 OC BE 4C DO 03 8D 
0310- F7 03 AA 4A 4A 4A 4A 16 
0318- 69 BO 6D 64 03 8A 29 0F 
0320- C9 CA 30 03 18 69 07 69 
0328- 80 8D 65 03 A9 00 8D F6 
0330- 03 A0 00 B9 50 03 99 00 
0336-02 CH5\CS"6D DO. F5" 2003 
0340- BE 90 OC 20 09 BE AD OF 






équipé du kit Unidisk, vous 
pourrez brancher votre disk ]{ en 
série avec l'Unidisk 3.5 (se 
référer au manuel Unidisk 3.5). 


Pour cela, il suffit de réaliser une 
liaison entre le câble plat du 
lecteur et le connecteur du lecteur 
de disquette qui se trouve sur la 
face arrière du //c. 


Le montage 


I convient de se reporter au 
schéma de branchement car la 
différence des numérotations 
normnalisées pour les connecteurs 





0348- BE 20 OC BE 4C DO 03 60 
0350" "CP" CCICE C1"C4" D4 D2.C9 
0358- AE C3 C8 C1 C9 CE CS AE 
0360- C3 AC C1 A4 80 BO BO BO 





0368- 68D 





Récapitulation 
‘TRI.DOS.INIT.C' 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE TRIDOSINIT.C,A$300,L$63 



















0300- AO 03 38 A5 73 E9 D7 85 
0308- 50 8D F6 03 20 2D 03 A5 
0310- 74 E9 O0 85 51 68D F7 03 
0318- 20 2D 03 20 8C F2 B9 44 
0320- 03 99 00 02 C8 C9 80 DO 
0328- F5 20 CD 9F 60 AA 29 OF 
0330- 20 3C 03 8A 4A 4A 4A 4A 
0338=“20m3C0 03 60" 18. C9; 10A "30 
0340- 02 69 06 69 BO 99 SE 03 
05487 /68M60MC2ACC CR ICIN CI DS 
OS50- D2NC9 AENC3 CB CHISCINCE 
0358- CS AE C3 AC C1 A4 00 00 
0360- 00 00 8D 



























































































Berg et DB complique les choses. 
Attention, si ce montage est 
simple à réaliser, toute erreur 
risque d'être fatale. L'interface 
lecteur de disquettes de l'Apple 
/Ic est bien moins protégée que 
l'interface des J[+ et //e, elle ne se 
relèverait pas d'un court-circuit. 
Le branchement entre le câble du 
lecteur et votre montage ne 
compoite pas de détrompeur ; 
veiller à ce que les câbles plats 
des deux connecteurs 2X10 
partent dans des directions 
opposées. 
























Le manuel du DOS donne le 
schéma des circuits de l'interface : © 
et de la carte analogique du disk : ‘8 
]J[ (avec toutefois une erreur surle  : 5 
signal RDDATA qui est inversé). 
Côté Apple //c, le manuel de 
référence donne les valeurs des 
signaux de chacune des broches 
du connecteur externe. Il suffisait 
de comparer ces tables et d'en 
déduire le branchement 
nécessaire. 


f 
H 
Ë 
H 
H 
È 
î 






Connecteur du 
lecteur externe î 
(face arrière du / /e) : 





TOO TAN CM OMAN 7 RE 
nu un as = 

19 18 17 16 15 14 13 12 11 
Ce er Pr (ur ler leg (Pr Cr 

















connecteur 


Prise mâle 
DB19 
à sertir 


Matériel 


Connecteur mâle type DB19 à sertir, 
Connecteur mâle Berg 2X10 à sertir, 
Câble plat 19 fils. 


1 Nappe 19 fils 


Vue côté 
sertissage 


Connecteur 
Berg Mâle 


Serre cieun DB19 Câble plat Connecteur ! 
(vers le //e) ,  f9fils . BERG2XIO ! 


maman ds ess SMS 02 ENT 



















préciser ici que ce type d’inter- 
vention sur votre matériel exclut 
tout recours à la garantie du | 
constructeur en cas de pro- 
blème ? Contrôler avec atten- 
tion votre montage avec les 
tableaux de connexion des fils 
évitera les soucis. 


15 :  WRREQ : Demande d'écriture 


16 : - : non connecté 


17  !DR2#(DR1) : Sélection du disque 2 ou 1 
18 :  RDDATA : Lecture des données (entrée) 
19 : WRDATA  ‘: Écriture des données (sortie) 


Ï 1 +— 1 { 
11 + 2 2 : Fo Fo Mo) Connecteur 
h 2 ENS D: CR 19 17 15 13 du drive 
É ! is + © © o o 
! 12 + 4 4 ! 9 € éapgpesssonnses 
li le © ONAEUEREENEREERET 
Î é es 3 1-00 Vers le disk]{ 
! 13 D 6 ! + AHBHBBBRBE 
4 + 7 > 7 LS OR TEE EE ARR E 
| 14 + 8 —+ 8 | 
ls nn k Rampe 7" hu j 
! 15 + 10 + 10 ! 
6 + 11 — DE DAMES LES See Near ES 3 
NC. + 12 > NC. jo: Broche 
É 7 RS EN du //e Signal Description 
17 I lé ie : 
bus a CASTRES 1,2 3460 CND : Masse signal et alimentation ! 
| 18 + 16 —+ 16 ! : : | 
t NC. æ 17 — NC. 5 : 12 
E 19 je 18 + (LS TES 6 :  +SV (Vcc) ! 
| 10 Fe 19 mix Co Site 78 ANS 
i (NC. = té ‘aa 6 : - nn ! 
pi re” F Dean UP : 9 :  EXTINT# : Interruption externe (non utilisée)  ! 
RE | 10 :  WRPROT  : Écriture protégée (entrée) ! 
NDLR. : Est-il nécessaire de 11-14 ! SEEKPHO* : Phase O à 3 du moteur du bras 
: 
: 





(# = actif niveau bas) 


PRINiuS8181u@"T cOUERS RE 


Le laser a encore frappé 1 CSM EC NORMAL 
La ligne 10710 du programme ‘Analyse Muiticritère’ de Pom's 24 présentait INPUT " "; C3$ : IF 
en effet tous les symptômes d'une grande confusion. H fallait lire : LEN (C3$). 
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Re 


Courbes fractales, suit 


à 


Lenuméro 22 dePoms ea 
présenté, pour les possesseurs de 
Macintosh, un thème abordé en 
classe de lère S. Les deux 
programmes listés ci-dessous 
permettent une représentation Sur 
l'Apple // de la courbe de Koch 
pour des niveaux n variant de un à 
six (limite de définition HGR). 


Rappelons ici que la particularité 
de cette courbe lorsque n = + est 
d'avoir une longueur infinie et de 
délimiter une aire finie. 


Le type de construction de cette 
courbe conduit à utiliser un 
langage autorisant les procédures 
récursives, ici Pascal. 


Le tracé se-fera À Ecran 
(programme FLOCON) ou sur 
traceur CGP 115 de Radio Shack 
(programme FLOCTRAC), ce 
dernier programme étant facile à 
adapter à tout autre traceur. Pour 
varier les plaisir, il est possible de 
remplacer +60 par -60 et -60 par 
+60 dans la procédure VKOCH. 


À 


CS 


La méthode : 


Vous n'avez pas la disquette 
d'accompagnement : il vous faut 
saisir et compiler les listings de 
façon classique. 


Vous avez la disquette 
d'accompagnement : 

Il faut initialiser une disquette 
Pascal à l'aide du FORMATER, 
puis il faut lancer le programme 
‘BASIC-PASCAL'de la 
disquette Ponr's. I! suffit de 
transférer les fichiers TEXT en 
suivant les indications données 
par ledit programme. 

Î convient alors de compiler et 
d'exécuter comme 
habituellement. 





& 


J.-P. Sorribas 


Programme ‘FLOCON.TEXT” 


PROGRAM FLOCON; 


USES TURTLEGRAPHICS, TRANSCEND; 
CONST BASE1=150; 


VAR N,1,ANGLE:INTEGER; 
CAR:CHAR; 


PROCEDURE DEBUT; 
BEGIN 
INITTURTLE; 
PENCOLOR {NONE) ; 
MOVETO(50,1$50); 
PENCOLOR (WHITE) ; 
END; 


PROCEDURE COTE (BASE, DIRECTION: INTEGER) ; 
BEGIN 


IF DIRECTION>=0 THEN DIRECTION :=DIRECTION MOD 360 
ELSE DIRECTION :=-({-DIRECTION) MOD 360) 


TURNTO (DIRECTION) ;MOVE (BASE) ; 
END; 


PROCEDURE VKOCH(BASE, DIRECTION, NIVEAU: INTEGER) ; 


BEGIN 
IF NIVEAU=I THEN COTE (BASE, DIRECTION) 
ELSE 
BEGIN 
VKOCH(BASE DIV 3, DIRECTION, NIVEAU-1) ; 


VKOCH{BASE DIV 3,DIRECTION+ANGLE, NIVEAU-) ; 
VKOCH(BASE DIV 3,DIRECTION-ANGLE, NIVEAU-1) ; 


VKOCH(BASE DIV 3, DIRECTION,NIVEAU-1); 
END; 
END; 


BEGIN 
REPEAT 
TEXTMODE; 
WRITE('NIVEAU ? ‘);READLNI(N); 
IF N>0 THEN ANGLE:=60 


EËSE BEGIN ANGLE:=-60;N:--N;END; 


DEBUT; 


FOR IT:=0 TO 2 DO VKOCH(BASE1,-120*I,N); 


READ {CAR) ; 
UNTIL CAR='F'; 
END. 
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Programme FLOCTRAC.TEXT “5 57 D otios 
y 5 


PROGRAM FLOCTRAC; _ 
RÉ dr 
USES TRANSCEND; Su Fr LS ARS 


CONST BASE1-480; 
PI=3.14159265; 


VAR N, I: INTEGER; 
CAR:CHAR; 


La, a 
LST:INTERACTIVE; de 


PROCEDURE COTE (BASE : INTEGER; DIRECTION: REAL) ; 
BEGIN 
WRITELN (LST, ‘J', (BASE*COS({(DIRECTION) ) :6:3, ‘, ", BASE*SIN(DIRECTION) :6:3); 
(trace d'un segnent en coordonnees relatives) 


END; ae 


PROCEDURE VKOCH (BASE : INTEGER; DIRECTION:REAL;NIVEAU:INTEGER) ; + re 
FU 


BEGIN 
IF NIVEAU=1 THEN COTE(BASE,DIRECTION) 
ELSE 
BEGIN 
VKOCH(BASE DIV 3, DIRECTION, NIVEAU-1); 
VKOCH(BASE DIV 3,DIRECTION+PI/3, NIVEAU-1) ; 
VKOCH(BASE DIV 3,DIRECTION-PI/3, NIVEAU-1); 
VKOCH (BASE DIV 3,DIRECTION, NIVEAU-1); 
END; 
END; 


a 
x 
BEGIN ie as 
REWRITE ({LST, "PRINTER:"‘}); g 
WRITELN(LST,CHR(9),'"7B'); (interface SSC reglee pour 600 bauds} Nr? 


WRITELN (LST,CHR(18)); (mise en mode graphique) 
WRITE('NIVEAU ? ‘'J);READLNI(N); 


WHILE N<>0 DO DOS, ProDOS, Pascal ? 
BEGIN 
WRITELN(LST, ‘MO, ',-BASE1 DIV 3); (deplacement absolu) " 4 
WRITELN(LST, ‘I'); (fixation de l'origine) Les disquettes qui accompagnent 
FOR I:=0 TO 2 DO VKOCH(BASEI,-2*PI/3#I,N); facultativement Pom's sont en- 
WRITELN(LST, ‘MO, ‘,-BASE1); registrées sous format DOS, car, 
WRITELN(LST, 'I'}; en effet, il nous faut penser aux 
WRITE ("NIVEAU ? ‘);READLNIN); nombreuses machines qui ne 
END; peuvent utiliser ProDOS ou Pas- 
WRITELN(LST,CHR(17)); (retour au mode alphanumerique) cal. 
CLOSE (LST) ; Certains programmes, par essen- 
ce, ne sont pas utilisables sous 
END. ProDOS (Patches au DOS 3.3 par 
exemple) et donc ne doivent être 





LR T | : 
convertis. 


D’autres ne présenteraient aucun intérêt à être utilisés sous ProDOS (le jeu SNAKE de Pom’s 24, par exemple). 

Enfin les programmes qui peuvent ou doivent fonctionner sous ProDOS, seront transférés sur une disquette Pro- 

DOS. Pour cela, deux solutions se présentent : 

* utiliser le programme CONVERT qui est sur l’une des disquettes système ; 

° utiliser la disquette ‘Utilitaires //c”, dans l'option COPIER qui permet de copier des fichiers depuis des disquettes 
DOS sur des disquettes préalablement formatées ProDOS. 


Les fichiers Pascal se trouvent sur la disquette Pom’s également en format DOS. Ils seront transférés sur votre dis- 
quette Pascal fraîchement formatée, grâce au programme Basic-Pascal de la disquette Pom’s. 
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Visions d’'Hyperespace 


Aujourd'hui, les espaces à grand 
nombre de dimensions sont 
rencontrés partout de la 
psychologie à la physique 
théorique, de la science-fiction à 
l'informatique. Pourtant, depuis 
le raz-de-marée de vulgarisation 
scientifique lié au centenaire de la 
naissance d'Albert Einstein en 
1979, il semble que le concept 
d'hyper-espace reste lié, dans 
l'esprit de chacun, à celle du 
temps. 


Sur le plan purement mathé- 
matique, ce rapprochement n'est 
guère gênant Car on ne s'occupe 
pas de l'unité de mesure-(mêtre 
ou seconde). Il est cependant bon 
de savoir que la Relativité 
Générale entraîne implicitement 
un univers à quatre dimensions 
puisque “tordu” par la 
gravitation. 


Le programme TESSERACT va 
faire évoluer din obiet 
quadri-dimensionnel sur votre 
écran, un cube à quatre 
dimensions : ses arêtes onttoutes 
la même longueur, et tous ses 
angles sont droits mais cet objet 
comporte 16 sommets, 32 arêtes, 
24 faces planes et 8 hyperfaces (à 
3 dimensions). Petite question : 
quel est le volume d'un tesseract 
d'un mètre de côté ? 


Pour représenter notre tesseract, 
il n'est pas inutile d'observer 
l'analogie avec un cube vu parun 
être à deux dimensions. Si un 


tesseract venait à passer devant 
nous, nous le percevrions comme 
deux cubes, dont l'un est dans 
une direction perpendiculaire au 
premier, reliés entre eux par 8 
arêtes. 





Notre programme, écrit en 
Applesoft, utilise la particularité 
du tesseract de disposer d'un 
chemin hamiltonien. Cela signifie 
qu'il est possible de parcourir 
toutes ses arêtes sans avoir à 
sauter d'un sommet à un autre. 


L'algorithme retenu évite de 
recalculer la position du tesseract 
après chaque mouvement (car les 
calculs seraient trop longs), et 
foumit un affichage le plus aéré 
possible : 16 des 32 arêtes sont 
toujours verticales ou 
horizontales. 


On peut faire varier la vitesse de 
défilement par le paddle O0; 
l'affichage est gelé par Ctri-S et 
Reset permet de sortir du 
programme. 





Olivier Sotiriades 


Enfin, n'oubliez pas que le 
tesseract a maigri de deux 
dimensions pour arriver Sur votre 
écran. Vous pouvez toujours en 
construire un en trois dimensions 
pour l'observer plus 
adéquatement. Ou attendre les 
futures disquettes optiques de 
Pom's destinées à votre écran 
holographique… 


P.S. : La réponse est un volume de 1 x 
1x1x1=1 m* bien sûr! 
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Flatland (E.A.Abbott, Présence 
du futur, Denoël) 

La Science et l'Hypothèse 
(HPoincaré, Flammarion) 

La Quatrième Dimension 
(R.Rucker, Science Ouverte, 
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Programme ‘Tesseract’ 


LES 


40 L1 = X2 - X1:X4 = X3 + Ll:L2 = INT (L1 * 

5 REM*** INITIALISATION *** KE TSX Sim NO LL NT OR SR T NT (X3 
10 HGR2 : HGR : POKE - 16302,0:F = 1: HCOLO — X1) * K):X8 = X7 + L2 

R= 3:V = .01: PRINT CHRS$ (17): ONERR G 50 MI = Y2 - YI1:Y4 = Y3 + Ml:M2 = INT (M1 * 

OTO 480 K + NS) S = YÉ CM T 7 = S + INT (K3 
20 XI = l:X2 = 199:X3 = 80:X6 ME GI T2) = 1) * K):Y8 = Y7 + M2 

= 136:Y3 = 55:Y6 = 110:K = .3 60 IE K > = 1 THEN DK = - .01 
JFOMCTL= FSC? MON SEC EN SCENE SD = N7ON TIR KL 2 SN THEN DKi—-'0)1 

OC D2 = SD = SE DE = S'DKe=,; 80K=K+DK*F 

01 85 REM %*** TRACAGE *** 


35 REM 


D ———— 


*** MISE À JOUR DES VARIABLES LIEES 


90" HPLOT KX1, Y3LTO K2, Y3 TO X2,Y1 TO X6,Y8 TO 
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100 


110 


120 


125 


130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
250 


260 
270 
280 
290 
300 
310 
320 
330 


340 
350 
360 
370 
380 
390 
400 
410 


420 
430 
440 
445 
450 


X8, Y6 TO X4,Y2 TO X2,Y4 TO X1,Y4 

HPLOT TO X1,Y3 TO X3,Y1 TO X4,Y1 TO X4, 
YNTOPXS, L2NTOPX 7 NAILTONX/, TONTOEXS TS 
HPLOT TOR A  TINTONX2 STORE, YTETONXSE, 
YS TO\X8,Y6 TOLX/ ,Y6ÉNTOIX7, Y= TOIXS,Y7 
HPLOT TO X6,Y7 TO X6,Y8 TO X5,Y8 TO X7, 
YENTONXS/Y2 TOPX1, YAINTO KI, TA TONXS, ete 
O X1,Y3 

REM *** MISE À 
S ##* 

IF X1 < = 1 THEN C1 = .5: GOTO 160 

IF X1 > = 200 THEN C1 = - .5: GOTO 160 
CHIC TIAN LE SES VE SE RNDE (C1) 0)E) 
X1 X 1, FICIPAPF 

IF X2< = X1 + 40 THEN C2 = 

278 THEN 200 

IF X2 > = 278 THEN C2 = — .5: GOTO 200 
COR CPI TRE EN (VE SE RND (1 )0e) 
NA = EXC EIC/RIRE 

IF X3 < = 1 THEN C3 = .5: GOTO 240 

IF X4 > = 277 THEN C3 = -— l: GOTO 240 
CIC IN (IE NN VE > RNDIM(EL)b)) 
XIe XI FA ICINANE 


JOUR DES VARIABLES LIBRE 


PO TEEN 2 


IF X5< =2 OR X7 < = 2 THEN C6 = 1: G 
OTO 280 
IF X8 > = 276 THEN C6 = - 2: GOTO 280 


CEÉN=IC CON IN 2 RN QVEE SC RNDNE)PE) 

X6= X6+C6*F 

IF Y1 < = 1 THEN D1 = .5: GOTO 320 

IF Y1 > = 130 THEN D1l = — .5: GOTO 320 
D1 = D1 * {1-2 * (V > RND (1))) 


VA I TA DIN: - 

TE Y2< = VI TE SONTHENVD2 = SENTE Y20< 
190 THEN 360 

IF Y2 > = 190 THEN D2 = — .5: GOTO 360 


D2E= D AN (IE ENV RNDNI(1)0))) 


YPS= PEN DIRXPE 


IF Y3 < = 1 THEN D3 = .5: GOTO 400 

IF Y4 > = 189 THEN D3 = - 1: GOTO 400 
DS DIMM (IE NAN UE > RNDN(L) )E) 
STE TNDINNEE, 

IF Y5 < = 2OR Y7 < = 2 THEN D6 = 1: G 
OTO 440 

IF Y8 > = 188 THEN D6 = - 2: GOTO 440 
D6 = D6 * (1-2 * (V > RND (1))) 


Y6= Y6+D6*F 
REM #** INTERVERSION DES PAGES HGR *** 
W# = NOT W: POKE - 16299 - W,0: POKE 230 


,32 + 32 * W: CALL 62450 


455 


460 


470 
475 


480 
490 


500 


510 


520 


530 


540 


550 


560 


570 


580 


590 
600 


610 


620 


630 


640 


650 


660 


670 
680 


690 


Une erreur s'est glissée dans l'article de 
Pascal Cantot, ‘le Kit 65C02’ paru dans le 
Pom's 


l[Erratur 


numéro 24. 


En effet, 

les instructions TRB, TSB et BIT {adressage 
immédiat) ne recopient pas les bits 6 et 7 
mais, en revanche, positionnent uniquement 


le bit Z. Plusieurs ouvrages traitant du 65C02 


ont commis la même erreur. 
Merci à Daniel Mueller d'avoir lu avec 
attention la documentation NCA. 
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REM *** PERMET DE FIGER L'IMAGE PAR CT 
RL-S ET DE MODIFIER LA VITESSE DE MOUVEM 
ENT DU TESSERACT PAR PDL(0) *** 


ATAB\ 1°: VTAB 1: PRINT D M: TE PDLIO)N< 
> 255 THEN F = PDL {0) / 51 

GOTO 40 

REM *** TRAITEMENT DES {RARES) SORTIES 

DE LA FENETRE HGR *+* 

REM 

PRIME XIE VEXZ EMNEXS; CoxAEn EX SE # 

DCE A 

PRINT Ye REED eve te LIT NS er 

Ré n N7r" EYE 

BPrnrici0r-c2/M CS IT ÈCE 

PRINT DH MD 2 D REED E) 

IF X4 > 279 THEN X2 = X2 —- l:C2 = - .5: 

KI = XI 1:CS =. SEX = K40— 1: GOTO 
530 

IF X5 < 0 THEN X1 = X1 + 1:C1 = .5:X6 = 

X6 + 1:C6 = .5:X5 = X5 + l: GOTO 530 

TEXTES NONTAEN XIE XIE 1:C3R=N SX CL 

X6 + 1:C6 = .5:X7 = X7 + l: GOTO 530 


IF X8 > 279 THEN X6 = X6 - 1:C6 = - .5; 
Km XX 22 CES XIE EN 1; CI= 
— .5: GOTO 530 


IF X1 < O THEN X1 = 0:C1 = .5: GOTO 530 

TX 2, >) 27 9NTHEN(X2 = 279 C2 CL 50 GO 
TO 530 

IF X3 < O0 THEN X3 = 0:C3 = .5: GOTO 530 

IF X6 > 279 THEN X6 = 279:C6 = -— .5: GO 
TO 530 

IF Y4 > 191 THEN Y2 = Y2 - 1:D2 = - .5: 
PIN TS 1 DS = 55 T4 = YA "1: (GOTO 
610 

TE YS OONTHENMEI = TITI DIN = "STE = 

F6 HI: DO = SES = YEN: GOTO 610, 

IF Y7 < O0) THENVY3 =" Y 9 + 1D31 = .5°Y6 = 

VENT: DE = SE 7 = T7 0 1 AGOTONCIO) 

TES YON>NISIETHEN PTE = TÉN VIE DEEE EN 5: 
VAN T2 UT ED CN STI Ye 1; D3L= 

-— .5: GOTO 610 

IF Y1 < O0 THEN Y1 = 0:D1 = .5: GOTO 610 

TOY" > 19 TNTRHENVY2 = 191 D2 = 55 1GO 
TO 610 

IF Y3 < O THEN Y3 = 0:D3 = .5: GOTO 610 

IF Y6 > 191 THEN Y6 = 191:D6 = - .5: GO 
TO 610 

RESUME 


EPI-'E'N DC 


Pour lister las programmes Basic 
an avant at an äàrrièrea, pour 
nodifier, insérer, supprimer des 
caractères sur tout l'écran, 

reiire les lignes, pour 
recherchar touta chaïne da 
caractèras, sous DOS at ProDOS, 
en 40 at 680 colonnes, sur Apple 
//a, //et et Y/e. 


sans 


200,00 F franco 
échange 2.0 : 80,00 Fr 
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Cove des rs 


40 pistes sous ProDOS 


Intéressé par les articles sur le 
formatage 40 pistes, j'ai tenté 
d'adapter les patches sous 
ProDOS. 

Dans le “Beneath Apple 
ProDOS", des modifications de 
Filer et de ProDOS sont 
proposées, mais les essais furent 
sans succès. Peut-être ÿ a-t-il un 
bug ? J'ai alors essayé de 
modifier le source de [init 
ProDOS" du numéro 20 de 
Pom's mais, à chaque fois 
j'obtiens un 1/0 ERROR bien 
qu'ayant modifié : 

° lenombre de piste ; 

° leBit Map; 

° le Gap3. 


Quelle est la solution ? 
P. Buschini - 75020 Paris 


Vous avez raison de signaler une 
erreur dans le patch proposé par 
Beneath Apple ProDOS. Dans le 
courrier des lecteurs du numéro 
23 de Pom's, J. Rey indiquait les 
modifications adéquates. Il 
indique également celles à faire 
pour CONVERT ainsi que pour 
les nouvelles versions du FILER 
et de ProDOS (version 1.1.1). 


Les modifications que vous 
apportez au programme INIT 
d'Alexandre Avrane sont 
correctes, mais il faut également 
modifier ProDOS. En effet, INIT 
utilise ProDOS pour vérifier que 
le disque est bien formaté. Si on 
ne modifie pas ProDOS, on 
optient un [/O ERROR quand on 
veut vérifier un bloc au-delà du 
n° 280. La modification du Gap3 
est par contre inutile, sauf si votre 
disque est trop rapide. 


Les modifications à faire sont les 
suivantes : 


Source INIT. CODEU.S 


ligne 318 CMP #40 

(au lieu de 35) 
ligne 655 : LDY #$27 

(au lieu de $22) 


ligne 756: $40 
(au lieu de $18) 


Objet INIT.CODEO 


$223F: 28 (au lieu de 23) 
$2491: 27 (au lieu de 22) 
$254D: 40 (au lieu de 18) 


Objet INIT 


$2240: 28 (au lieu de 23) 

$2492: 27 (au lieu de 22) 
$254E: 40 (au lieu de 12 ou 18) 
Notons ici que sur la disquette d'accom- 
pagnement, cet octet a la valeur $12, ce 
qui est incorrect ; la bonne valeur étant 
$18. 


Rappelons les modifications à 
apporter à ProDOS : 


ProDOS 1.0 

520D: 40 (au lieu de 18) 
ProDOS 1.1.1 

56E3;: 40 (au lieu de 18) 


Attention, même si le formatage 
se passe bien, certaines pistes 
peuvent être “recouvertes” par les 
dernières pistes (le bras du lecteur 
fait alors un bruit similaire au 
recalibrage), entrainant des 
erreurs par la suite. Utilisez 
l'option “vérifier volume" de 
FILER ou d'Utilitaire System 
avant d'utiliser le volume. En cas 
de problème, réduisez le nombre 
de pistes. 





INIT et CMDLINK 


N'y aurait-il pas un bug dans 
l'article “Allô ProDOS" (Pom's 
20) ? 

Dans le programme CMDLINK, 
il me semble qu'il faille remplacer 
la ligne 30 par : PRINT D$ 
#BLOAD" Ca CODE, "AS 
2100". D'autre part, je n'ai pas 
compris l'utilisation de INIT. Le 
fichier INIT après intégration par 
INIT LINK et CMDLOAD (après 
correction) est de type CMD, 
donc non exécutable. Sur la 


disquette, il est de type BIN et 
fonctionne normalement. 


L. Fontaine, 72100 Le Mans 


Votre correction du programme 
CMDLINK est parfaitement 
exacte ; Je suffixe est bien 
"CODE" et non pas ".LOAD". 
Vous avez également raison en ce 
qui concerne le programme INIT 
sbtenu, “quimest de Mtype 
ComManDe, donc pas 
directement exécutable (il faut le 
charger puis faire CALL 8192). 
Sur la disquette d'accompagne- 
ment, INIT est de type BINaire 
ce qui simplifie le problème. 
Vous pouvez obtenir le même 
résultat avec CMDLINK en 
remplaçant, aux lignes 45 et SO, 
"T$F0" par "TBIN”. 


EXEC en Pascal 


Je n'ai pas réussi à utiliser les 
fichiers EXEC en Pascal (UCSD 
1.2). Le manuel de référence ne 
comporte pas d'indications sur la 
commande ‘M' du menu 
principal, et le Pom's numéro 3 
ne m'a pas été d'un grand 
Secours. 


M. Frank LOPATNIK, 75005 
PARIS 


Voici la méthode : 


+ Création du fichier EXEC en 
mode direct : 


M pour Make Exec 
TEST nom du fichier Exec 
Y en réponse à la question : 


Terminator=% Change it ? 
LL] 
F | Les ordres tapés 
L | ainsi Se retrouvent 
: | dans le fichier TEST 
RETURN | 


tout en étant 
0 | exécutés. 
38 Fin de l'enregistrement 


L'utilité d'avoir deux ‘%' est 
d'éviter de terminer un 
enregistrement alors que, par 
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exemple, on est dans l'éditeur 
et quon veut entrer “13%”. 
Bien entendu, un fichier EXEC 
ne pourra comporter deux "%' 
consécutifs -ce qui est 
rare-, sauf à changer alors le 
‘tenmninateur’. 


° Création ou modification du 
fichier EXEC par l'éditeur : 
Comme on le voit en éditant 
TEST, il suffit de commencer 
par UN ‘%' et de tenniner par 
QUATRE ‘%'. 


° Exécution au clavier 


Pour exécuter tout fichier, il 
faut taper X. Ici, au lieu de 
mettre TEST ce qu'on aurait 
fait pour TEST.CODE-, il 
faut rentrer EXEC/TEST. 


+ Exécution depuis un pro- 


gramme : 


Pour exécuter tout fichier, il 
suffit d'employer le 


SETCHAIN de CHAIN- 
STUFF. Donc : 


SETCHAIN ('TEST') pour 
lancer TEST CODE et 
SETCHAIN ('EXEC/TEST') 
pour un fichier EXEC. 


+ Limitation des fichiers EXEC : 


Il n'est pas possible de les 
‘nester’”. Ils ne peuvent 
contenir de Ctrl-@, Ctrl-A, 
Ctrl-Z, etc. Si le fichier EXEC 
lance un programme et que 
celui-ci fait un READ ou un 
READLN, il ira chercher dans 
le fichier EXEC, alors que s'il 
fait un UNITREAD ou 
KEYPRESS, il ira chercher au 
clavier (comme en Applesoft 
avec GET ou INPUT d'une 
part, et PEEK(-16384) d'autre 
pat). 


Décrypteur 


Plusieurs lecteurs nous ont 
signalé un problème avec l'option 
‘échange de bits du Décrypteur 
(Pom's 21). 

Il s'agit en fait plutôt d'un 
problème d'ergonomie, le 
programme fonctionnant norma- 
lement. Le problème (plantage) 
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survient en fait lorsqu'on lance 
plusieurs fois de suite l'option 
échange de bits par un espace au 
lieu de RETURN /Enterfet, 
‘espace’ incrémente l'octet 2, ce 
qui est commode pour les options 
ET, OÙ ou EXCL car le filtre est 
alors pour l'octet 2 : 09 (ORA), 
29 (AND) et 49 (EOR). 


Dans l'option ‘échange de bits’, 
le filtre est 20 (jmp) 6D 10 et 
incrémenter plusieurs fois l'octet 
2 ne peut conduire qu'à des 
problèmes. 





et le lc ? 


Je possède un Apple lc et il me 
semble que cette machine n'est 
pas bien considérée par votre 
rédaction, certaines allusions le 
montrent. Bien sûr, les 
possesseurs de {Ic ne représentent 
pas la majorité de votre lectorat 
mais ils n'ont pas moins envie de 
connaitre leur machine. Voici 
quelques questions : 


+ Comment modifier le ‘Hard 
Copy de la page HGR étendue’ 
pour qu'il fonctionne sur le l{c. 

+ Sous ProDOS, si je charge 
GRAFO de ToolKit à l'adresse 
$9500, j'obtiens : No Buffer 
Avalaible. Comment ÿ remédier, 
je n'ai pas trouvé la réponse dans 
ProDOS technical reference 
manu) 


+ P-FORMAT fonctionne-t-il sur 
lellc ? 

-< Pour COGO, vous précisez 
que sur un //c, l'affichage se f ait 
en simple haute résolution, une 
version/{c est-elle prévue ? 


M. Bouland 
77300 Fontainebleau 


Non, nous ne délaissons pas le 
/Ic. Au contraire, nous nous 
efforçons de modifier les 
programmes pour qu'ils 
fonctionnent sur toutes les 
machines : EPE a ainsi été adapté, 
le composeur téléphonique, le 
Basicium. Nous continuons dans 
cette voie mais il s'agit là d'un 
problème délicat car les machines 
ne se laissent pas toujours faire. 


+ Le programme de Hard Copy 
fonctionne sans modification : la 


précision de l'auteur, concernant 
le SET n'est à prendre en compte 
que pour une utilisation 
simultanée de la souris. Si le 
programme n'imprime pas, il ne 
peut s'agir que de la position des 
‘switches’. 1 convient de noter 
qu'il ne faut pas faire BRUN 
HARD, mais BLOAD HARD, 
A$ 4000, puis CALL 16432 
(basic) ou 4030G (moniteur). 


Plus simplement, vous pouvez 
utiliser le programme Basic 
COPIE. 


+ La réponse se trouve bien dans 
ProDOS technical reference 
manual, annexe A.2.1 page 118. 


+ P-FORMAT fonctionne sur le 
[/c, mais l'éditeur de police qui y 
est adjoint n'est pas utilisable. 
Nous étudions la modification. 

+ COGO fonctionne aujourd'hui 


nonnalement sur le //c, c'est le 
résultat de nos efforts. 





Les 64 Ko, le DOS 


Comment faire pour utiliser les 
64 Ko de la carte 80 colonnes 
étendue en Basic, et comment 
faire pour enlever le DOS d'une 
disquette ? 


P. Mykiét a- 922530 Gennevilliers 


Le plus simple et le plus pratique 
est de les utiliser comme disque 
virtuel : en ProDOS (/RAM), 
sous DOS 3.3 (Pom's 12, 14 et 
16), sous CP/M (Pom's 24). 
Autrement, il faut utiliser le 
langage machine et jongler avec 
les switches et/ou utiliser le 
sous-programme XFER ($CFCD 
pour le //c, $C3B0 pour le //e). 


Pour enlever le DOS d'une 
disquette DOS 3.3 il faut, à l'aide 
d'un éditeur de secteurs, indiquer 
dans la VTOC que les pistes 1 et 
2 sont libres (récupérer la piste O0 
est plus délicat). Voici comment 
faire : 


Piste $11, secteur $00, octets 
$3C, $3D et $40, $41, remplacer 
00 00 par FF FF. 

En ProDOS, il suffit de 
supprimer les fichiers ProDOS et 
BASIC.SYSTEM. dé 
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Micro-informations 


Apple ne s'exclut plus de l'univers IBM 
et mitonne quelques nouveaux produits de 
son ctu : voici la tendance régnant à 
Cupertino. Tendance précisée en juin, 
par Jean-Louis Gassée, le vice-président 
en charge des nouveaux produits, de 
passage dans son fief français pour cause 
d'Apple Expo. Jean-Louis Gassée a donc 
donné des détails importants sur le 
positionnement d'Apple, et sur le 
contenu de la hotte des Pères Noëls de 
Cupertino. Voici l'occasion de faïre le 
point sur les nouveaux projets. Le 
présent d'Apple est aux processeurs 16 
bits et à la coexistence avec IBM, son 
avenir lié à celui des communications. 


Le nouvel Apple // 


Le présent commence pour Apple avec la 
sortie de l'Apple // version 16 bits. Car, 
paradoxalement, le récent succès du 
Macintosh Plus (on recense selon 
Jean-Louis Gassée une base installée de 
750 000 Macs de tous types) pose 
quelques problèmes. C'est que, 
parallèlement, le vénérable Apple // qu 
faisait les choux gras de la fire à la 
pemme, se vend de moins en meins. Or, 
si Apple a pu entrer dans les usines, les 
universités et les commerces, c'était bien 
grâce au //, transformable au gré de 
l'utilisateur, en oscilloscope, en machine 
à apprendre, ou en caisse enregistreuse. 
Il était donc urgent de le mettre au goût 
du jour. Ce sera bientôt chose faite. 
Jean-Louis Gassée a implicitement 
confirmé toutes les rumeurs sur ce nouvel 
Apple sauf les dates officielles de sa 
sortie. 

Résumons pour les lecteurs de Pomn's : le 
nouveau // est muni d'un processeur 
65C816, tournant à 2,5 Mhz en 16 bits, 
capable d'adresser 16 Mega-octets de 
mémoire vive (4 Megas seront 
directement installables dans la 
carrosserie du // new Îook). Mais ce 
processeur peut aussi fonctionner en 8 
bits, émuler le 6502 des actuels Apple // 
et utiliser ainsi tous les logiciels 
développés pour celui-ci. Physiquement, 
le dernier né d'Apple se présente comme 
un vulgaire IBM en trois éléments 
unité centrale, clavier détachable et 
moniteur de visualisation. Parmi ses 
caractéristiques : une belle résolution 
graphique (et en 16 couleurs s'il vous 
plait), permettant notamment un 
affichage de 200x320 points; un 
nouveau système d'exploitation Predos 
intègrant un ‘Finder’ style Macintosh, et 
une horloge intégrée. Outre la couleur, 





Jean-Michel Gourévitch 


l'Apple /{ pourra aussi disposer d'une 
caile sonore extrêmement perfectionnée 
avec synthétiseur à 16 voies. Côtés 
sorties, cet Apple /{ modèle 1986 
supporte bien entendu le réseau 
AppleTalk, des lecteurs de disquettes 3 
pouces et demi de 800Ko et des lecteurs 
de S pouces 1/4. Bref, voici une machine 
perfoimante, s'attaquant aux ordinateurs 
16 bits modernes, style Atari. 


Reste que la clé de sa réussite ticnt à son 
prix. Car, dès Noël, le marché de 
l'informatique individuelle sera durement 
éprouvé. Des compatibles IBM se 
négocieront vraisemblablement pour 
environ 3 000 Francs, mettant la riche 
bibliothèque de logiciels MS-Dos à la 
pertée des utilisateurs familiaux. Amstrad 
s'apprête d'ailleurs à sortir un de ces 
compatibles intégrant notamment le 
système d'exploitation GEM de Digital 
Research (au look si ‘Macintoshien’ 
qu'on avait dû le modifier sous la 
pression d'Apple) pour moins de 6 000 
Francs. Quant à l'Atari, (vendu 10 000 
Francs pour une configuration d'un 
Mega-octet de mémoire vive), à se verra 
appuyé par un grand frère plus puissant 
et devrait encore baisser. Dans ces 
conditions, Apple devra proposer 
quelques autres caractéristiques inédites, 
et jouer serré en matère de tarifs, pour 
vendre le nouveau // sans mordre sur le 
Macintosh. En France, Apple a ainsi 
entamé des manœuvres pour solidifier 
son réseau (en se séparant de certains 
concessionnaires, en distinguant ceux 
appelés à vendre le // de ceux qui 
peuvent aussi fournir le Macintosh, et en 
posant à ces derniers des conditions 
draconiennes, notamment en matière de 
force de vente, et de surface des locaux). 


Aux États-Unis, mêmes procédés 
complétés par des baisses de prix. En 
juillet, le prix du disque dur HD 20 a 
baissé de 300 dollars passant à 1200 
dollars (8 400 Francs au cours du 
change, ça fait rêver, mais le dollar 
‘informatique’ reste plus près de 11 
Francs, ce qui met la bête plus près de 
13 000 Francs chez nous). Et les lecteurs 
de 800Ko du Macintosh et de l'Apple // 
ont baissé de 20% passant à 400 dollars. 
Bref, comme chez Apple on préfère 
réserver la nouvelle gamme Macintosh à 
l'utililisation dans les bureaux, le nouvel 
Apple // ne sera un vrai succès que si Ja 
configuration complète ne dépasse pas 
ou peu les 10 000 Francs. Pas facile. 


Deux gammes distinctes 


L'une des révélations de Jean-Louis 
Gassée, c'est que les gammes resteront 
séparées. Évaporées, donc les rumeurs 
qui promettaient le fonctionnement des 
programmes du Mac sur le nouveau // : 
«Pas de produits du type couteau suisse» 
a fermement démenti le vice-président. 
On verra donc se développer chez Apple 
dans les deux ans deux gammes bien 
distinctes comportant chacune trois ou 
quatre modèles. Ça, c'est une double 
information : l'Apple // aura au moins un 
petit frère (en comptant dans la gamme 
l'ancien // et le //c). Même chose pour le 
Macintosh, dont la gamme comprendra 
le récent Mac 512Ko avec lecteur de 
800Ko, le Macintosh Plus, le nouveau 
Mac ‘ouvert’, et une autre machine. 
Apple, qui se met à décliner ses gammes 
comme un eonstructeur automobile, 
proposera ainsi vraisemblablement dans 
chaque ligne un modèle de haut de 
gamme, un extensible, et un portable. 
Message reçu cinq sur cinq : attendez 
vous à voir dans les deux ans un 
Macintosh portable... 


À l'intérieur de chaque gamme, les 
produits obéiront aux règles de Ja 
compatibilité ‘ascendante’. En clair : le 
modèle le plus perfectionné sera capable 
de lire les programmes de l'ordinateur de 
base. Sur le papier c'est bien beau, mais 
quand on a vécu les problèmes de 
passage du //e au //c, puis du Mac au 
Macintosh Plus, on demande à voir. 


Deux gammes distinctes, donc, mais 
avec des choses en commun. Et d'abord 
les périphériques, les lecteurs 800Ko 
notamment. Bizarrement, c'est en 
suivant les expériences d'utilisateurs 
astucieux qu'Apple aurait découvert que 
les lecteurs Unidisk 3.5 du // pouvarent 
aussi fonctionner sur le Mac. La leçon a, 
en tous cas, été retenue. Quant aux 
disques durs, ils seront aussi communs. 
Là c'est facile : le nouvel Apple /{ sera 
doté comme le Mac et l'Apple //e d'une 
interface SCSI. Une exception : l'Apple 
fic, pour lequel l'adaptation d'une 
interface SCSI aurait été wop diélicate. 
Ma prévision : l'Apple //c pourrait bien 
voir son piix baisser considérablement 
Gusqu’à 3000 Francs) et devenir le bas de 
gamme d'Apple... 


La compatibilité par 
l'échange des données 


Revenons aux choses sérieuses. Si les 
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deux gammes d'Apple ne pouiront 
s'interchanger les programmes, elles 
pourront se prêter facilement les 
données. «Aujourd'hui, a expliqué Jean 
Louis Gassée, les programmes sont 
pratiquement ‘jetables’. La vraie valeur, 
ce sont les données saisies, qui coûtent 
plus cher que le logiciel, et qu'il faut 
pouvoir récupérer». C'est si vrai 
qu'actuellement, le problème de la 
micro-infommatique tient dans le coût de 
ces saisies. Apple propose donc une 
solution. Puisque les lecteurs et les 
disquettes sont communs, on devrait 
donc, avec un utilitaire, pouvoir par 
exemple récupérer sur Excel, dans le 
lecteur d'un Macintosh, des données 
saisies sur AppleWorks et dans le lecteur 
d'un Apple /!, et vice-versa. 


Cette compatibilité des fichiers se 
réalisant sur le lecteur même du 
micro-ordinateur et par lecture directe 
constitue un progrès révolutionnaire. 
Pourquoi ? Parce qu'elle ne s'arrêtera pas 
aux frontières d'Apple. C'est qu'IBM 
vient précisément d'adopter le standard 
de la disquette 3 pouces et demi pour son 
nouveau Convertible, et aussi pour ses 
autres PC. Dans les deux ans, tous les 
logiciels de l'IBM seront donc portés sur 
ces disquettes ainsi que leurs fichiers. 
Gassée ne l'a pas caché : on travaille 
chez Apple sur un utilitaire permettant de 
lire dans les lecteurs du Mac et de 
l'Apple 1! les disquettes contenant les 
fichiers de l'IBM, bien que celles-ci 
soient enregistrées avec un format 
différent. Voici la première étape de la 
compatibilité Apple-IBM: celle des 
fichiers. Il est vraisemblable qu'Apple, 
qui a déjà eu du mal à reconnaître que la 
compatibilité des données avec le 
MS-Dos pouvait apporter un ‘plus’ à ses 
clients s'en tiendra là, 


La fume de Cupertino laissera à d'autres, 
comme Dayna ou The Engineering 
Department, le soin d'implanter sur les 
ordinatcurs à la pomme le système honni 
MS-Dos. On peut déjà prévoir trois 
étapes : 
+ la sortie d'un nouveau ‘Mac Charlie’ 
adaptable au Mac Plus, (il se 
présentera comme un chassis 
d'extensions ajouté au classique Mac 
Charlie) pennettant de visualiser sur un 
écran supplémentaire les grapluques aux 
normes MS-Dos. Ce qui permettrait ainsi 
de faire tourner le “Flight Simulator” du 
PC sur le Macintosh (à quoi bon 
d'ailleurs, puisque la version Macintosh 
qui vient de sortir en France est sans 
concurrence ? Mais, il y a tant de 
sociétés qui exigent du Macintosh la 
sacro-sainte compatibilité IBM...) ; 
+ la sortie d'une caïte installant dans un 
slot du nouvel Apple // un ordinateur 
MS-Dos en réduction (avec coprocesseur 
8086, contrôleur de disquettes, etc.) ; 
+ la même chose pour le nouveau Mac 
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modulaire. 


Le pari de 
la communication 


Plutôt que de s'aligner sur les systèmes, 
on préfère visiblement se réserver chez 
Apple le pari de profiter du chaos du 
marché de la communication. Puisque les 
données sont ce qu'il y a de plus 
précieux, il faut àrouver le moyen de les 
échanger quel que soit le système et 
quelle que soit la machine. Connecter des 
ordinateurs entre eux, ce n'est pas très 
compliqué. Le probième commence avec 
les protocoles, l'interface et les 
structures. Sans parler des normes de 
twansmission différentes en Europe et aux 
États-Unis. 


Voici pourquoi, et c'est une des plus 
importantes révélations de Gassée, des 
fonctions de télécommunications seront 
intégrées et disponibles en ressources, 
dans les systèmes d'exploitation des 
Macs et Apple //. Aujourd'hui, lorsqu'un 
programmeur veut créer une fenêtre dans 
un programme pour le Mac, il lui suffit 
d'insérer dans son programme une 
instruction appelant la routine de 
création de fenêtres inscrite en ROM. De 
la même façon, il suffira au programmeur 
d'un traitement de texte d'appeler les 
routines de communication pour créer un 
menu “Accès” pernettant, par exemple, 
sans quitter le traitement de texte, de se 
connecter sur un serveur ou une base de 
données, d'ouvrir une fenêtre et d'y 
obtenir des informations qui pourront 
ensuite être intégrées par 
copier/couper/coller. 11 s'agira de rendre 
plus facile et rapide, ce qu'on peut déjà 
réaliser sur le Mac avec des utilitaires 
comme Mock Terminal. Et, de la même 
façon, on pourra extraire des 
informations d'autres micro-ordinateurs. 
Ce progrès apportera aux Mac et autres 
Apple 4} un certain caractère 
‘multitâches’ : on pourra continuer à 
travailler sur le traitement de textes, 
pendant que les informaons aniveront. 
Des perfectionnements qui prennent tout 
leur sel avec le réseau TOPS, décrit plus 
bas, permettant à des Mac et des IBM PC 
de partager fichiers et périphériques. 
Pour en avoir plus, il faudra attendre la 
nouvelle génération de systèmes se 
profilant après 1989 ou 1990. Avec une 
architecture du futur, permettant des 
traitements multiprocesseurs. Ces 
architectures, développées à l'aide du 
Cray MXP dont Apple s'est équipé, 
devront pour voir le jour permettre des 
améliorations de performances au moins 
10 à 20 fois supérieures aux systèmes 
d'aujourd'hui. Un tel changement jettera 
alors aux orties la compatbilité. Et 
bouleversera du même coup la puissance 
et le paysage de la micro-informatique. 
Mais on n'en est pas encore là... 


Extensions MacPlus : 
pénurie difficile 
à résorber 


En attendant toutes ces merveilles, 1 
s'agit de résoudre des problèmes bien 
plus terre à terre. À commencer par la 
disponibilité des extensions Macintosh 
Plus. En juin, on avouait chez Apple 
qu'il faudrait six mois pour résoudre 
l'embouteillage de demandes. Si ce n'est 
pas un succès pour le Macintosh 
Plus... Les derniers servis auront 
pourtant la satisfaction de se dire que les 
ROM de leur MacPlus seront moins 
‘boguées'. En effet, l'un des problèmes 
du Macintosh Plus tient à des erreurs 
inscrites dans ses ROM. Ce qui provoque 
parfois des phénomènes bizarres : un 
utilisateur ayant acheté deux Macintosh 
Plus à quatre mois d'intervalles pouvait 
ainsi faire fonctionner le génial 
simulateur musical de lecteur de cassettes 
“Jam Session” sur le plus récent, mais 
n'obtenait que des bombes sur le plus 
ancien... Plus sérieusement, ce “bug” 
empêcherait sur eertains Macintosh Plus 
l'utilisation du port SCSI. Les 
possesseurs de ces versions là ne s'en 
sont peut-être pas encore aperçus, Car les 
périphériques SCSI ne sont pas encore 
légion, mais ça promet encore des 
tristesses à certains pour demain. 


Pour parer à ces ennuis (qui empêchaient 
aussi certains programmes comme de 
Dimension de tourner), Apple a corrigé 
ces erreurs par des ‘patches’ incorporés 
dans de nouvelles versions du système et 
du Finder. On en était ainsi en juillet à 
la version 5.3 du Finder, et à la 3.2c du 
Système (disquette Pom's 25). Pour la 
nouvelle imprimante Laserwnter Plus, ce 
sont des composants fournis par des 
sous-traitants qui se sont avérés 
défectueux et ont causé quelques ennuis à 
ses utilisateurs. Apple France attend 
sagement la résolution de tous ces 
problèmes pour l'importer chez nous. 
Dire que certains stratèges inconscients 
rêvent encore sans rire de développer les 
programmes les plus denses et les plus 
longs jamais réalisés pour les joujoux de 
la guerre des étoiles version Initiamve de 
Défense Stratégique. 

Sur terre, et plus précisément dans la 
galaxie Appie, on continue à ne pas 
sombrer dans la monotonie. Avec des 
extensions, des disques durs et des 
programmes, comme s'il en pleuvait. 


Mémoire : jamais assez 


Le Macintosh Plus dispose en standard 
d'une mémoire vive d'un Mega-octet. 
Mais, elle peut être facilement quadmplée 
en remplaçant les barrettes contenant jes 
“puces” de 256Kbits par des puces d'un 
Mega-bit. C'est un des arguments de 
vente d'Apple. Quand ? Quand ces super 





puces seront disponibles à prix 
raisonnables. Ce n'est pas le cas, et 
d'après les spécialistes, il faudra encore 
patienter, car les puces d'un Mega ne 
sont encore fournies qu'en petites 
quantités et à prix importants. Mais, 
comme les utilisateurs de Macintosh 
sont des enfanis gâtés, ils n'aiment pas 
patienter. Les constructeurs d'extension 
l'ont parfaitement compris et se baîtent 
pour offrir des extensions maisons... 
L'impatience n'a pas de prix... Chez P. 
Ingéniérie avec MacMega Pius et 
pour 9 369 Francs, on dispose de quatre 
barrettes de 512Ko (réalisées, c'est vrai 
avec une très belle technologie de 
montages de composants en surface). On 
trouve encore des extensions chez JCR, 
baptisées Megalot (7 240 Francs pour 
2 Megas). Aux États-Unis, on trouve 
déjà chez Micro Conversions des 
extensions (baptisées Plus'Plus) à 4 
Megas pour 1400 dollars. 


Stockage des données : 
toujours plus 


On vous l'avait dit : depuis que le Mac 
dispose d'une interface SCSI, les disques 
durs se bousculent à son connecteur. 
Mention particulière à ceux proposés par 
Pro App. : on peut les relier aussi bien 
à la prise lecteur d'un simple Mac, à la 
prise SCSI d'un Mac plus, qu'à un Apple 
{!. Et, en prime, ils servent de spoolers 
pour l'impression. Prix modérés : 995 
doliars pour 20 megas et 795 pour 10. 
Les prix baissent : le Paradise Mac 
20 importé par Micro Conneetion 
est ainsi disponible chez nous pour 
11 800 Francs. Alpha Systèmes 
impoite les disques durs internes Micah 
(25 309 Francs pour 20 Megas) et 
externes HD20 (17 671 Francs). Prix 
bien plus intéressant chez IEF qui vend 
son Mac Turbo disk interne de 20 
Megas pour 16 485 Francs. 


Crex Technology a développé le 
Turbo Line, un disque électronique (il 
s'agit en fait d'une mémoire vive qui 
reste en permanence alimentée) 
particulièrement rapide, car il n’y a pas 
d'accès disque, Prix : 5 930 Francs pour 
i Mega, 11 480 Francs pour 3 Megas. 
Pour l'heure, le ruban bleu du disque dur 
est détenu par l'AST 4000 et ses 74 
Megas. Dommage que cette Rolls du 
stockage soit si chère : près de 70 000 
Francs. 

Une sauvegarde pour disque dur d'une 
capacité de 20 Mega-octets sur cassette 
numérique, le Storm 20 est proposée 
chez DIF électronic pour 19 600 
Francs. 


Réseaux : du nouveau 

Du disque dur au serveur de réseau, il n'y 
a parfois que l'épaisseur d'un logiciel. 
C'est le cas avec Asmodée d'ACI. Cet 


utilitaire, qui s'installe dans le menu # 
du Macintosh permet, à distance, et sous 
AppleTalk d'accéder aux fichiers stockés 
sur la disquette ou le disque dur d'un autre 
Macintosh. 


La grande nouveauté, en matière de 
réseaux, c'est TOPS, compatible avec 
AppleTalk, encore distribué par Micro 
Connection. La réponse à bien des 
problèmes d'incompatibilité, ce réseau 
local permet de faire partager des fichiers 
et des périphériques par des Macs, mais 
aussi des IBM PC ou compatibles. Pour 
un prix très raisonnable, car le coût de 
connection est de 2080 Francs par 
Macintosh et 5634 par PC ou 
compatible (il faut une carte). On n'a pas 
fini d'entendre parler de TOPS. 


Unix 

L'une des nouveautés annoncées par 
Jean-Louis Gassée, c'est l'adoption de 
systèmes sous Unix qui sera disponible 
dès 1987 pour le Macintosh. Pour cela, 
Apple a acheté la technologie 
développée par Cadmus. L'adoption 
d'Unix permettra d'implanter le futur Mac 
haute de gamme modulaire sur le marché 
de la station de travail scientifique. A 
remarquer un indice : Apple propose 
depuis peu aux États-Unis 
MacWorkStation. Un programme 
permettant de se relier à une unité 
centrale en éliminant l'émulation jusque 
là obligatoire des terminaux DEC VT 
100 ou IBM 3278, mais en conservant 
la facilité du Mac de ses menus et de ses 
fenêtres. Ce programme destiné à des 
non techniciens d'accéder aux 
programmes de l'unité centrale. Il 
comprend le source, le logiciel MacHost 
(source pour système d'exploitation Unix 
V et VMS) et une documentation. Sa 
licence d'utilisation dans un programme 
revient à 1500 dollars. 


Gestion de bases 
de données 


Coatrole X, qui a divorcé d'avec 
Version Soft, sort enfin CX S00, 
l'évolution relationnelle, multi fichier et 
paramétrable de MacBase. J'attendrai 
d'avoir vu tourner la version définitive 
pour en dire plus. Soulat Frères 
importent Overvue 2. Cette version 
est particulièrement rapide et simple. 
Prix: 3320 Francs. Blyth Software 
a sorti une nouvelle version d'Omnis 3 
c'est Oimnis 3 Plus. A noter que ce 
programme s'est tranquillement installé 
comme la meilleure base de données pour 
Mac (et aussi la plus sûre et la moins 
‘boguée’). Dans la nouvelle version, des 
champs pour des heures avec possibilité 
de calculs sur heure, des champs de texte 
pouvant comporter plusieurs lignes avec 
passage à la ligne automatique, la 
possibilité de créer des bandes de 


défilement pour passer rapidement à la 
fin des données, 60 nouvelles macros, la 
possibilité d'avoir des fichiers de 160 
Megas, la possibilité de lancer depuis 
Omnis d'autres programmes pour le Mac, 
des sauvegardes automatiques, etc. Omnis 
est importé en France par KA 
informatique. A remarquer enfin, 
l'amélioration de Filevision, l'un des 
premiers programmes pour le Mac, avec 
Business Filevision. Cette dernière 
version permet notamment l'importation 
de dessins de MacPaint, MacDravw, 
MacDraft, ou d'images numérisées, ainsi 
que le traitement graphique de données 
crées dans File, Omnis 3, Jazz, Excel, 
etc. 


Revoilà les intégrés 


Programmes intégrés, ou programmes 
reliés par switcher? On se croirait 
revenu un an en arrière, au moment où la 
querelle faisait rage enwe Lotus, qui avait 
sorti Jazz -son programme intégrant 
plusieurs applications- et Microsoft, 
sortant Excei, un programme intégrable. 
Les revoici tous deux en piste. 


Lotus sort la nouvelle version LA de 
Jazz pour le Macintosh Plus. Vitesse 
accrue, capacité de traitement plus 
impoitante, sur disquette 800Ko. En 
prime, une sérieuse baisse : Jazz, ne 
coûte plus que 3 500 Francs. 


Microsoft, qui s'était affiché comme 
l'ennemi des intégrés, met la dernière 
main à MacWorks. La revue 
britannique Practical Computing a 
pu mettre la main sur une version de test 
et la... tester. Conclusions : une base de 
données semblable à File, mais sans 
possibilité d'y incorporer des 
graphiques, un programme de 
communications simple, un tableur 
puissant (9999 rangées sur 255 
colonnes) mais limité, avec 50 
fonctions, et la possibilité de convertir 
les chiffres en graphiques (mais avec peu 
de types de graphiques), et surtout un 
très bon traitement de texte avec 
notamment la possibilité d'y dessiner 
des lignes, des cercles, des carrés. On 
peut aussi y concevoir des documents 
plus larges que l'écran, qui seront 
imprimés en largeur, récupérer des 
documents MacWrite, etc. MacWorks 
devrait être vendu moins de 300 dollars 
aux États-Unis. 


Des traitements 
de texte en pagaille 


La décision d'Apple de ne plus livrer 
systématiquement MacWiite avec le Mac 
continue à susciter la création de 
traitement de texte. Microsoft sc 
prépare aussi à soitir une nouvelle 
version de Word, avec correcteur 
d'orthographe incorporé, traitement 
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d'idées style Think Tank, lui aussi 
incorporé, génération automatique 
d'index et de tables des matières, etc. En 
France, ACI lancera à la rentré Writer 
Plus. Un traitement de texte multi- 
fenêtres, pennettant de réaliser des 
mailings, avec plusieurs colonnes, 
césure et indexation automatiques. Mac 
Author, le traitement de texte avec 
feuilles de style, possibilité d'amalgamer 
les graphiques au texte, espacement 
réglable, etc. dont j'avais parlé dans 
cette rubrique est maintenant importé 
chez nous par Italsoft. Prix : 2312 
Francs. 


Aux États-Unis, on trouve chez Icon 
Review, le traitement de texte 
MultiWrite, un MaeWrite 
multi-fenêtres intégrant un traitement 
d'idées, un compteur de earactères, etc. 
pour 80 dollars. 


Nouveauté d'importance, Think Tank 
de Living Videotext a désormais un 
successeur. C'est Morc. Il offre en plus 
la possibilité d'illustrer graphiquement le 
cheminement des idées par des ‘arbres’ 
Le programme comprend aussi un 
calculateur intépré additionnant les 
nombres entrés. Si ce programme, qui 
sera vendu 300 dollars, est aussi 
révolutionnaire que l'avait été, en son 
temps, Think Tank, ça promet. 


Editique 

C'est le nouveau nom, pas très beau, 
pour traduire ce que les Américains 
appellent Desktop publishing, et qui est 
en fait de l'édition électronique. C'est 
toujours la grande mode pour le 
Macintosh. Concept Publishing 
Systems a sorti Adnet. Le système 
complet comprend un Macintosh équipé 
d'un disque dur inteme de 10 Mepas, et 
spécialement configuré, une tablette 
graphique et une Easer Writer. Prix : 
17000 dollars. 


Plus abordable, Glue de Solutions 
Inc. offre pour 49 dollars la possibilité 
de transférer facilement dans 
PageMaker ou Ready Set Go des 
graphiques créés dans Excel ou Jazz. 
Ces images peuvent être rappelées et 
transférées dans le programme d'édition 
par couper/coller. Précisément, une 
nouvelle version -la 3.0- de Ready Set 
Go est en préparation avec possibilité 
de travailler sur plusieurs documents, 
nombre de pages aceru, et automatisation 
de certaines fonctions de conception de 
documents. 


Un drink ? 


On a pu apprécier, dans la chaleur 
d'Appie Expo, Mac Drink sur le stand 
de Micro Valley. Le logiciel 
AutoMac de Pro Forma pilotant un 
Mac relié à des bouteilles permettait de 
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doser des cocktails. L'ensemble est 
sérieux. Il se compose d'un Mac, d'un 
Apple il sans lecteurs, et de cartes 
interface. Le logiciel est éciit en Prolog 
IA. Il permet de commander des 
expériences de chimie, électricité, 
robotique et de piloter un système à 
électro vannes, un bras aiticulé, ou... un 
train électrique. Une telle débauche 
technologique pour un train électrique, 
c'est un peu de l'overkali, non ? 


Cêté Apple // 


Alpha Systèmes importe une série de 
nouveautés pour l'Apple //. Parmi elles : 
Kyan, un Pascal sous Prodos avec 
facilités d'utilisation comparables à 
Unix, routines graphiques, etc. pour 
1 234 Francs ; Unimate, un logiciel 
pour lecteur de 800Ko permettant 
d'utiliser ce lecteur avec le DOS 33, le 
Pascal et le CPM pour 580 Francs ; et la 
carte Cheekmate avec processeur 16 
bits 65C816 pour 3 150 Francs. 

Apple distribue Extasie, un logiciel 
de dessin permettant de mélanger dans 
une même image les 16 couleurs 
disponibles et la très haute résolution 
graphique noir ct blanc de 560 points 
par ligne. On peut y construire des 
rectangles et ellipses, on dispose d'une 
loupe, d'un aérographe, les sorties 
peuvent s'effectuer en couleurs sur une 
imprimante Imagewriter 11. Prix : 699 
Francs. 


Citizen, distribué par Geveke, a 
conçu une interface permettant de relier 
une de ses imprimantes (souvent bon 
marché) à un Apple //. Prix : 1 000 
Francs. 


Beagle Bros, un des pionniers de la 
programmation pour Apple //, a 
développé Macro Works, un ensemble 
d'améliorations pour Appleworks 
comprenant notamment des macros, la 
possibilité d'impression en colonne, etc. 
Prix : 35 dollars. 


Et des traitements 
de texte 


Multi Scribe de Styleware est un 
traitement de texte utilisant la double 
haute résolution graphique, très 
semblable à MacWrite pour le Mac. 
Comprenant même un éditeur de 
caractères. Prix 60 dollars. 


L'un des ancêtres des traitements de texte 
pour le //, Format 80 d'Elite 
Software peut maintenant incorporer 
des formules mathématiques. Grâce à 
Format 80 Scientific. 


Toujours IBM 


Cette fois, c'est le //c qui peut lire et 
écrire des fichiers compatibles IBM 
grâce à une carte baptisée Envoy, et 
conçue par Asky aux États-Unis. La 


caite peut contrôler les lecteurs 5 pouces 
1/4 et 3 pouces 1/2 Apple, mais aussi 
des lecteurs IBM, y compiis celui de 1,2 
Megas de l'AT. En reliant un lecteur 
compatible IBM à l'Apple, et grâce à un 
logiciel de conversion, on obtient des 
fichiers pouvant être relus sur un IBM. 
Le prix de la carte n'est que de 180 
dollars, avec le logiciel, mais sans le 
lecteur IBM. Selon ses promoteurs, le 
système permet ainsi à des employés 
d'une société: d'empoiter chez eux des 
disquettes de données IBM et de les relire 
et les retravailler chez eux sur leur 
Apple. Alleluia! 


Rectification 


Dans le dernier numéro de Pomss, il 
fallait bien évidemment lire Pixel 
Studio, à la place de Mac Palette. 
Pixel Studio, c'est bien le nom de 
l'ensemble graphique couleur pour le 
Mac. 


Adresses 


Alpha Systèmes - 29, Bd Gambetta 
38000 Grenoble - Tél. : 76 43 19 97 
P.Ingénierle - 226, Bd Raspail 
75006 Paris - Tél: 43 21 93 36 
JCR - 58, rue Notre Dame de Isrette 
75009 Paris - Tél. : 42 82 19 80 

Pro App - 1475 S. Bascom Avenue 
Campbell CA 95008 

Micro Connection 

103/105, rue du Château 

92100 Boulogne - Téi. : 48 25 83 83 
IEF - 217, quai Stalingrad 

92130 Issy les Moulineaux 

Tél. : 45 57 14 14 

Crex Technology - 34, rue Poncelet 
75017 Paris - Tél. : 42 67 80 46 

DIF Electronic 

94, Bd du Montparnasse 

75014 Paris - Tél. : 43 21 43 65 

ACI - 6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 
Soulat Frères 

45/47, rue de la division Leclerc 
94250 Gentilly - Tél. : 47 40 00 20 
ltalsoft - 14, rue Vauvenargucs 
75018 Paris 

Icon Review 

PO Box 2566 Monterey 

CA 93942 

Concept Publishing System 
126 Monroe St Beaver Dam - WI 53916 
Pro-Forma - 14, rue Martel 

75010 Pans - Tél. : 45 23 25 05 
Geveke Electronique 

2 à 18 ruc des Peupliers 

92000 Nanterre - Tél. : 47 80 9% 96 
Beagle Bros 

3990 Old Town Avenue 

San Diego CA 92110 

Styleware - 6405 Hillcroft Suite 
201 Houston Texas 77081 

Elite Software 

4 Hawthylands Drive, Hailsham ei 
Last Susssex BN271IE, UK 
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Bon de commande 


Disquettes 


HAÏIFA source 
H-BASIC 


(cf. Pom's n° 5) 
(cf. Pom's n° 8) 
(cf. Pom's n° 10) 
(cf. Pom's n° 11) 
{cf. Pom's n° 13) 
E.P.E. (cf. Pom's n° 23) 
Échange (EAPAE- 50... (cf. Pom's n° 23) 
PASCAL (cf. Pom's n° 15) 
MAX (Moniteur étendu) {cf. Pom's n° 18) 
DOMIN OS 


(cf. Pom'sn° 21) 
(cf. page 8) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues $ à 8 
Disquettes d'accompagnement S à 8 
N°3, recueil des revues 9 à 12 
Disquettes d'accompagnement 9 à 12 


Revues, disquettes 


Revues4 7 8 (n°9 épuisé) 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 


Disquettes Apple IT, //e, /{c 
ANS AS 6) TRE NE ONIIO METRE 
14 IS IGN 17718 1920 21" 2228024825 


Disquettes Macintosh 
14/15/16 groupées 
TONI 20210 720872874825 
Mac ‘A’ 
MacAstuces 
“Raccourci” 


Abonnements Pour 6 numéros à partir du (I 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple I, //e, /{c 
Abonnement revue + disquettes Macintosh 


(cf. Pom's n° 19) 
(cf. Pom's n° 21) 


à 150,00F 
à 80,00F 
à 450,00 F 
à 150,00 F 
à 200,00 F 
à 80,00F 
à 80,00F 
à 150,00 F 
à 80,00F 
à 200,00 F 
à 150,00F 
à 80,00F 


à 140,00F 
à 200,00 F 
à 140,00 F 
à 200,00 F 
à 140,00 F 
à -200,00 F 


à 150,00F 
à 80,00F 
à 80,00F 
à 200,00 F 
à 200,00 F 


Total TTC : 
Supplément avion hors CEE : 15,90F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et vetre règlement à : EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 


Adresse : 





Imprimerie Rosay. 94300 Vincennes, Imprimé en France. Dépôt légal : juillet 1986. N° 3449 
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Programmes, Trucs, Astuces, Initiation 


Apple |[+, //e, /le+, l/c 





Basic, Pascal, Assembleur... 











